473 



E3f PRESS IONS 



t^ 



EXPRESSIONS; CONCEPTS AND TYPES 



An expression describes how a value can be obtained by applying 
specified operations to designated operands or primaries. 



Syntax 



<expression> 

<arithinetic expression> ■ 

-<bit manipulation expression>- 

-< Boolean express ion >- • 

-<case expression > — ^^— 

-< complex expression > — 

-< conditional expression> — 

- < des i gna\: ional expres s i on > 

-< function expres si on > — •■ 

-< pointer express ion >- — • 

-< string expression > ; -— 



Semantics 



Evaluation of an arithmetic expression returns a numerical value. 
Evaluation of a Boolean expression returns a Boolean value (TRUE or 
FALSE). Evaluation of a complex expression returns a complex value — a 
value with a real numerical [ part and an imaginary numerical part. 
Evaluation of a designational expression returns a label. Evaluation of 
a pointer expression returns a value that can be used to reference a 
character position in an array row. Evaluation of a string expression 
returns a value that is an EBCDIC, ASCII, or hexadecimal string. 



A bit manipulation expression operates on bits within words and makes it 
possible to "build"' the contents of a word from groups of bits contained 
in other words. 
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Case expressions and conditional expressions allow one of several 
alternative expressions to be chosen for evaluation based on a selection 
value. 

A function expression is a call on a typed procedure. The procedure can 
be declared in the program or it can be an intrinsic— a typed procedure 
that is a predefined part of the ALGOL language. Intrinsic functions 
exist that are predefined arithmetic expressions, predefined Boolean 
expressions, predefined complex expressions, predefined pointer 
expressions, and predefined string expressions. For example, 
SQRT(< arithmetic expression>) is a function expression that returns the 
square root of the value of <arithmetic expression>. Because SQRT 
returns a numeric value, it is an arithmetic function— a predefined 
arithmetic expression. 



NOTE 

Expressions that are very large or deeply 
nested can cause the compiler to get a 
stack overflow fault. The fault can be 
avoided by breaking very large or deeply 
nested expressions into several separate 
expressions or by increasing the maximum 
stack size by using the task attribute 
STACKLIMIT. 



Examples 



X*Y 

SWLBL[SWX] 
POINTER(A) 
RSLT. [19:20] 



A = B 
SQRT(X) 
SI I I S2 
CSIN(C) 



CASE N OF (1,2,4,8) 
IF BOOL THEN A ELSE B 
& N [3:4] 



Expressions 
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ARITHMETIC EXPRESSIO N 



Arithmetic expressions are expressions that return numerical values by 
performing specified operations oh designated arithmetic primaries. 



Syntax 



<arithmetic expression> 

— <simple arithmetic expression> — — — ■ 

I 

|-<conditional arithmetic expression>- 



<simple arithmetic expression) 

|<- <arithmetic operator) - 
I 
■ < arithmetic primary)— ^-- 



orithmetic operator) 






- TIMES - 

- MUX 

- / — 

- DIV 

- MOD — i 

I 

! 
_ * it I 
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orithmetiG primary) 

<unsigned nuinber> ■■ 

-<arithmetic concatenation expression>- 

-<string literal> — : 

-<arithmetic variable> — := — <arithmetic expression>- 

-< arithmetic operand > — 

I 

|-<partial word part> — 



<arithmetic operand> 

< arithmetic variable) 

U f 

|-<update symbols)- I 

I 

-<arithmetic function designator) • I 

I 
- ( — <arithraetic expression) — ) ! 

I 
-<arithmetic case expression) | 

I 
-<arithmetic attribute)- 1 



<arithmetic case expression) 



— <case head) — ( <arithmetic expression) ) — 



<conditional arithmetic expression) 

— <if clause) — <arithmetic expression) — ELSE 
>-<arithmetic expression) 



<constant arithmetic expression) 

An <arithmetic expression) that can be fully evaluated at compile 
time. 



Expressions 



477 
ARITHMETIC 



See also 

<arithinetic attribute>. . . . |. . v . . . . .......... 226 

xarithmetic concatenation expres£ion> . . . . . . . . . . . . . 484 

<arithmetic function designators. . .... . . . . . . . . . . 515 



<arithmetic variable> 
<case head> . . . . . 



. . . . . . . . . . . . . . . .225 

.... ..... . . . . . . . 263 

<if clause> ............... ...... 319 

<partial word part) .... .................. 489 

<update symbols). . . ... . . . .... . . . . . 227 



Examples 



Valid 



Invalid 



SUM/N 

(A+B)/(C-D) 

2*(X+Y) 

(A+B)/(C-D) 

COS(A+B)+C 

y*3 

+ S 

(-B+SQRT(D))/(A+A) 

^T'*3 

A+X* ( B : =X* ( C+X* ( D+X*E ) ) ) 

THETA 



L*-A 

*ENTIER(60) 

4 (AC) 

X*-3 

3X + 4Y + Z 

A(X +5) 

A+X* ( B : =X* ( C+X( D+X*E ) ) ) ) 

P*[X + Y + Z] 

X + Y*-X + Z**2 



Semantics 



The evaluation of a conditional arithmetic expression 
"Conditional Expression." 



is described in 



Arithmetic Primaries 



The items on 
primaries. 



which arithmetic operators act are called arithmetic 



A variable or function designator used as an arithmetic primary in an 
arithmetic expression must be of an arithmetic type— INTEGER. REAL, or 
DOUBLE. 



An attribute used as an arithmetic primary must have a type that is 
INTEGER, REAL, or DOUBLE. For information on file attribute and direct 
array attribute types, see the "l/o Subsystem Reference Manual." The 
arithmetic-valued task attributes are described under "Arithmetic 
Assignment. " 
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The length of a string literal used as an arithmetic primary must not 
exceed 48 bits. A string literal used as an arithmetic primary is 
interpreted as either type REAL or type INTEGER, depending on its value. 



The arithmetic concatenation expression is described in "Concatenation 
Expression." 

The partial word part is described in "Partial Word Expression." 

The evaluation of an arithmetic case expression is described in "Case 
Expression." 



See also 

Arithmetic Assignment 



225 



Examples 



Valid 



Invalid 



5.678 

X := * + 3 

(14 + 3.142) 

MABEL 

R & 3 [1:2] 

Y.[30:4] 

"ABCD" 

SQRT(X) 

CASE I OF (5,15,17) 

FYLE.MAXRECSIZE 



X := * := Y 
+ DCS 
B - A 
-(A + B) 

TRUE 



Arithmetic Operators 



The operators ■^, -, *, and / have the conventional mathematical meanings 
of addition, subtraction, multiplication, and division, respectively. 
No two operators can be adjacent, and implied multiplication is not 
allowed. 



The TIMES and * operators denote multiplication. 



Expressions 

The DIV operator denotes integer division, 
mathematical meaning: 

y DIV Z = SIGN(Y/Z) * ENTIER(ABS(Y/Z)) 
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It has the following 



The MOD operator denotes remainder division 
equal to 1, MOD has the following meaning: 

y MOD z = y - (z * (y DIV z)) 



For Z greater than or 



For Z less than 1, the MOD operator produces undefined results 



The MUX operator multiplies either single- or double-precision 
arithmetic primaries, and yields a double-precision result. 



The ** operator denotes exponentiation. The semantics of the 
exponentiation operator depend on the types and values of the primaries 
involved. Table 6-1 explains the various meanings of y**Z. 



Table 6-1. lExponentiation 
Meaning of y**Z 





Z: 


Type Integer 


■ 

Z: 


Type ReaJ 






Z > 


1 1 
1 Z = 1 

1 1 

1 ;. ■ _ 1 


Z < 


Z > 


i 

1 Z = 

1 

1 


2 < 


y>o 

Y<0 

y=o 


Note 1 

Note 1 




1 1 

1 1 

I 1 1 

II 1 

1 Note 4 1 

1 , ! 


Note 2 
Note 2 
Note 4 


■ 
■ 

Note 3 

Note 4 




1 ■ 

1 

1 1 

1 1 , 

1 Note 4 

1 . 


Note 3 
Note 4 
Note 4 



Note 1: y**Z = Y*Y*y ... *^ (Z times) 

Note 2: y**Z = Reciprocal of y*y«Y .. .*Y (ABS(Z) times) 

Note 3: Y**Z = EXP(Z*LN(y)) 

Note 4: Value of the expression is undefined. 
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Precedence of Arithmetic Operators 



The sequence in which the operations of an arithmetic expression are 
performed is determined by the precedence of the operators involved. 
The order of precedence is as follows: 

1. ** (highest precedence) 

2. *, /, MOD, DIV. MUX, TIMES 

3. +, - 



Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 



The precedence of the assignment operator (:=) is as follows; 

1. An expression to the right of an assignment operator is 
evaluated before the assignment. 

2. The' assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 



Parentheses can be used in normal mathematical fashion to override the 
defined order of precedence. An expression in parentheses is evaluated 
by itself, and the resulting value is subsequently combined with the 
other elements of the expression. For example, in the expression 

(X+l)/Y 

the addition is performed before the division because of the 
parentheses. In the expression 

x+i/y 

1 is first divided by Y and then the result is added to X. 



Expressions 
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Table 6-2 illustrates how mathematical notation can be translated to an 
ALGOL arithmetic expression. 

Table 6-2. Mathematical Notation 



i Mathematical 
1 Expression 




1 Equivalent 1 
1 ALGOL Expression 1 


1 A X B 




1 a' * B 1 


1 B 
1 A + - 
I 2 




1 A + B/2 1 


1 X + 1 
1 Y 




1 (X + 1)/Y ! 


1 2 
1 D + E 

1 2A 




1 (D + E**2)/(2 * A) 1 


1 3 
1 4(X + Y) 




1 4 * (X + Y) ** 3 ! 


! M - N 






1 P + 5 X 
! (M + N) 


-6 
10 


1 (M - N)/(M + N) r* (P + 5(3-6) 1 



Precision of Arithmeti c Expressions 



The value of an arithmetic expression can be expressed in single or 
double precision, depending on the precision of its constituents or. in 
the case of MUX, on the operator involved. The value of an arithmetic 
expression is double precision ii any variable, function, or number of 
which it is composed is of type DOIJbLE, or if two primaries are combined 
by the double-precision operator MUX. The MUX operator allows a 
double-precision result to be obtained from the multiplication of two 
single-precision arithmetic primaries. 
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The value of a case expression is double precision if any expression in 
its arithmetic expression list is of type DOUBLE. Likewise, the value 
of a conditional arithmetic expression is double precision if either 
arithmetic expression is double precision. In either case, 
single-precision arithmetic expressions are converted to double 
precision, when necessary. 



Types of Resulting Values 



The type of the value resulting from an arithmetic operation depends on 
the arithmetic operator and the types of the primaries being combined, 
except when the resulting value is undefined. Table 6-3 describes the 
types of quantities that result from various combinations of arithmetic 

primaries. 



Table 6-3. Types of Values Resulting from Arithmetic Operations 



Operand 


Operand 


+ 














on Left 


on Right 


It 


/ 


DIV 


MOD 


St ft 




MUX 


INTEGER 


INTEGER 


Note 3 


REAL 


INTEGER 


INTEGER 


Note 


1 


DOUBLE 


INTEGER 


REAL 


REAL 


REAL 


INTEGER 


REAL 


Note 


2 


DOUBLE 


INTEGER 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


Note 


2 


DOUBLE 


REAL 


INTEGER 


REAL 


REAL 


INTEGER 


REAL 


Note 


2 


DOUBLE 


REAL 


REAL 


REAL 


REAL 


INTEGER 


REAL 


Note 


2 


DOUBLE 


REAL 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


(any) 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 



Note 1: If the operand on the right is negative or the absolute 

value of the result is greater than or equal to 2**39, 

REAL; Otherwise, INTEGER 
Note 2: If the operand on the right is zero, INTEGER; otherwise, 

REAL 
Note 3: If the absolute value of the result is less than 2**39, 

INTEGER; otherwise, REAL 
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The type of an arithmetic case expression or a conditional arithmetic 
expression is DOUBLE if any of its constituent expressions are of type 
DOUBLE. (For more information, refer to "Precision of Arithmetic 
Expressions" above.) If the conditional arithmetic expression or 
arithmetic case expression contains only expressions of type INTEGER and 
REAL, its type is REAL. A conditional arithmetic expression or 
arithmetic case expression is of type INTEGER only if all its 
constituent expressions are of type INTEGER. 
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BIT MANIPULATION EXPRESSION 



Bit manipulation expressions provide a means of isolating a field of one 
or more bits from a word, and allow words to be constructed from fields 
of one or more bits from other words. 



SyntcDc 



<bit manipulation expression) 

— - — <concatenation expression) — 

I I 

i-<partial word expression) — | 



Concatenation Expression 



The concatenation expression forms a primary from selected parts of two 
or more primaries. 



Syntcuc 

<concatenation expression) 

<arithmetic concatenation expression) | 

I ! 

i-<Boolean concatenation expression) | 

<arithmetic concatenation expression) 

— arithmetic primary) — & — <arithmetic expression>- 



)-< concatenation )■ 



<Boolean concatenation expression) 

<Boolean primary) — & — <Boolean expression) — <concatenation> — I 



<concatenation> 
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— [ — <left bit to>— : — 

|-<left bit frpm> — : - 
>-<number of bits>— ] — ~ — — ~ — 



<left bit to> 

— <arithmetic expression>-- 

<lef t bit f roin> 

— <arithmGtic express ion >~ 

xpumber of bits> 

— <ari thmetic expression >~ 



See also 

xarithmetic primary>. . . . . . . . . . ..... . . . .... 476 

<Boolean primary> . ... . . . . . . . . .... . . . • • • • 492 



Semantics 



A concatenation primary is formed by taking a specified part of th^ bit 
pattern of the value of an expression and copying it into the specified 
portion of a primary. The rest of the destination primary is not 
changed by this operation. 

Note that only arithmetic expressions can be concatenated with 
arithmetic primaries, and only boolean expressions can be concatenated 
with Boolean primaries. 
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Because the concatenation expression is a primary, and the syntax for a 
concatenation expression is of the form 

<primary> & <expression> <concatenation> 

concatenation expressions of the following form are allowed: 

<primary> & <expression> <concatenation> 
& <expression> <concatenation> 



& <expression> <concatenation> 

If, as in the example above, more than one concatenation term is used in 
a concatenation expression, then these terms are evaluated from left to 
right. 



<concatenatlon> 



The <concatenation> construct describes the location in the expression 
of the field to be copied and the location in the destination primary 
where the field is to be copied. 



The <left bit to> element defines the leftmost bit location of the field 
in the destination word. The <left bit from> element defines the 
leftmost bit location of the field in the source word. The <number of 
bits> element specifies the length of the field to be copied from the 
source to the destination. 



If the "[<left bit to>:<left bit f rom> : <number of bits>3" form is used, 
the field of bits to be copied starts at <left bit from> in the source 
word and is < number of bits> long. 



If the "[<left bit to>:<number of bits>]" form is used, then the field 
of bits to be copied from the source word starts at bit number (<number 
of bits>-l) and extends through bit zero. That is, the source field is 
assumed to be the low-order <number of bits> bits in the source word. 



The values of <lef t bit to> and <lef t bit f rom> must lie within the 
range through 47, where bit is the rightmost, or least significant, 
bit in the word. 
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The value of < number of bits > must lie within the range through 48. 
If the value Of < number of bitsx exceeds the number of bits to the right 
Of the starting bit in either the sdurce or destination wordsyjhese 
fields wrap around and are continued at bit 47, the leftmost bit. of the 
same word. 

If through the programmer's use of variables, the ranges for <left bit 
to>. <left bit from>, or <number of bits> are exceeded, then the program 
is discontinued with a fault. 

Because a concatenation expression is a primary, when it appears as an 
operand in a larger expression, the concatenation expression ^is 
evaluated before other any operation is executed. For example, the 

expression 

2**4 & 1 [0:0:1] 
is evaluated as 

2**(4 & 1 [0:0:1]) = 2**5 =32 

and NOT as 

(2**4) &1 [0:0:1] = 16 &1 [0:0:1] = 17 

For the same reason, the Boolean concatenation expression 

3 < 7 & (5 > 8) [47:47:20] 
is evaluated as 

3 < (7 & (5 > 8) [47:47:20]) 
which is equivalent tc 

3 < (7 & FALSE [47:47:20]) 

This results in an error, because the Boolean expression "FALSE" cannot 
be concatenated with the arithmetic primary "7". 
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Given real variables X, Y, and 2 with the following values: 

X = 32767 = 4"000000007FFF" 
Y = 1024 = 4"000000000400" 
Z= 1 = 4"000000000001" 

the following are examples of arithmetic concaitenat ion expressions and 
their values: 



Expression 



Value 



X 
X 
Y 
Y 


X 
Y 



Y [47:11:4] 

Y [47:12] 
X [39:20] 
2 [46:1] 

Y [11:11] 
X [23:48] 

Y [39:12] & 
X [19:15:8] 



2 [47:1] 



4"400000007FFF" 
4"400000007FFF" 
4"0007FFF00400** 
4"400000000400" 
4"000000000800" 
4"007FFF000000" 
4"804000007FFF" 
4"00000007F400- 



Assume the elements of the real array INFO contain information about the 
data in a file. Each element of INFO contains a record number in the 
field [19:20], and the length of the data in that record is in field 
[39:20]. That is, each element of INFO stores the location and length 
of a record in the data file. Let N be a variable that contains a 
record number and let L be a variable that contains the length of that 
record. The following declarations and assignment statement could be 
used to store a value into an element of INFO. 

DEFINE 

REC^NUMF = [19:20]#, 
LENGTHF = [39:20]#; 



INFO[I] := & N REC_NUMF 
& L LENGTHF; 



Expressions 
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Partial Word Expression 



A partial word expression isolates the value of a field of one or more 
bits of a specified word. 



Syntax 



<partial word expression> 

<arithmetic operand> <partial word part>- 

1 1. : 

|-<Boolean operand> — —I 



<partial word part> 

. — [ — <ieft bit>— : ~<nlimber of bits>— ] 

<left bit> 

~<arithmetic expression>— I 



See also 

< arithmetic operand> 
< Boolean operand > . 
< number of bits>. . 



. . 476 
. . 492 
. . 485 



Semantics 



The <partial word part > construct describes the location in the operand 
Of the field to be isolated. The isolated field is copied to the low 
order (rightmost) field of a word of all zeros. 

The <left bit> element defines the leftmost bit location of the field in 
the source word. The value of <left bit> must lie within the range 
through 47, where bit is the rightmost, or least significant, bit in 
the word. 



The <number of bits> element specifies the length of the field. The 
value of <number of bits> must iie within the range through 48. If 
the value of <number of bits> exceeds the number of bits to the right of 
<left bit> in the source word, the field wraps around and is continued 
at bit 47, the leftmost bit. of the same word. 
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If, through the programmer's use of variables, these ranges are 
exceeded, the program is discontinued with a fault. - - v ^ .v^n >:,,;.'. 



Examples 



Given real variables X, Y, and Z with the following values: 

X = 32767 = 4"000000007FFF" 
Y = 1024 = 4"000000000400" 
Z = 2 = 4"000000000002" 

the following are examples of arithmetic partial word expressions and 
their values: 

Expression Value 



^•[5:6] 4"00000000003F" 

Y.[ll:4] 4"000000000004" 

Z. [19:48] 4"000040000000" 

X. [23:24] 4"000000007FFF" 

X.[23:20] 4"0000000007FF" 



Using the INFO array example from "Concatenation Expression" above, the 
following assignments could be used to extract information from INFO. 

N := INFO[I].REC_NUMF; 
L := INF0[I].LENGTHF: 



Expressions 
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Boolean expressions are expressions that return logical values by- 
applying specified operations to 4esignated Boolean primaries. 



Syntax 



<Boolean expressions 

< simple Boolean expression)- 



I -< conditional Boolean expression >- 



< simple Boolean expression > 

l<- <Boolean operator) 
I 
<Boolean primary) ■■ 



< Boolean operator) 

AND I 

i 

- OR ~| 
i 

- EOV -I 

- IMP - i 
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- NOT - 



-<Boolean value> 

I 

-<Boolean operand > ~ ~~ I 

I 

|-<partial word part> 

-<Boolean variable>— := ~<Boolean primary >- 

l-<update symbols > 

-<arithmetic relation > — ■ 

-<Boolean concatenation expression> 

-< complex relation > 

-<string relation> 

-<pointer relation >- ■ 

-<string expression relation) 

-<arithroetic table membership) 

-<pointer table membership) " 



< Boolean value) 

TRUE -■ I 

I I 

I- FALSE -I 

<Boolean operand) 

-< Boolean variable) 

1 

i-<Boolean function designator)- 

1 

1- ( — <Boolean expression) — ) 

i 

|-<Boolean case expression) 

I 

i-<Boolean attribute) • 



Expressions 



<Boolean case expression > 



!<■ 



— < case head >— ( - — ^ < Boolean expression > ) — | 
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orithmetic relation) 

— <arithmetic expression>~<relational operator> 
>-<arithinetic expression > — ■ — ^-- 



<relational operator)' 



< string relational operator > 

! : I. 



IS 

ISNT — ■ 



< string relational operator > 

LEQ ! 

I 

I 
I 

- LSS - 

- EQL - 

- NEQ 



i- GTR - 

I- .> 

I 

!- GEQ - 
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< complex relation> 

— <coinplex expression) — <complex equality operator >■ 
>-<complex expression)— ~ " 



< complex equality operator) 
— - EQL i 



i 
- NEQ - 1 



> 



<string relation) 

— <pointer part) — < relational operator) ■• ~ " 

>___<pointer part)-- FOR — <arithmetic expression) — 

" -I 

|-<string literal) ' 

I I 

I- FOR — <arithmetic expression)-! 

<pointer part) 

— <pointer expression) — I 

,1 i 

|-<update pointer)-! 

<pointer relation) 

--^pointer expression)— <equality operator)— <pointer expression)- 
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<equality operator> 



EQL 

I 



I- NEQ —I 

I : ! . . 
I I 

I- IS —I 

I i 
I- ISNT -I 

<string expression relation> 

— <string expression) — <string relational operator>- 
>-<string expression >- : ; " 



<arithmetic table membership) 

— <arithmetlc expression)-- IN ~<truth set table> — 



<pointer table membership) 

— <pointer expression)— IN — <truth set table)- 



I- FOR — <arithmetic expression)- I 

<conditional Boolean expression) 

~<if clause)— <Boolean expression)— ELSE — <Boolean expression >■ 



See also 

<Boolean attribute) ...... . • • • • 234 

<Boolean concatenation expression? 484 

<Boolean function designator) . ........••• ^^^ 

< Boolean variable). . ...... . . . . • • 234 

<case head) 263 

<if clause) ............••••••♦• -^-^^ 

<partial word part) . . . . . . . • • • • • * • • • • • * * * ' ^^^ 

<truth set table) 38-i 

<update pointer). • ^^^ 

<update symbols). 227 
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Examples 



Valid 



Invalid 



B AND TRUE 

1-A > B*(-E) 

(X=Y OR W=K) 

X=0 AND Y'=0 

A>1 AND (B=a OR C<D) 

(A=B OR C=D) AND (X<2 OR Y<2) 

A=B 

X EQV Y 

NOT B & TRUE [5:1] 



1+A AND Z>0 
NOT NOT A 
1-W*2 
(B*2-4XAXC) 



Semantics 



The evaluation of a conditional 
"Conditional Expression." 



Boolean expression is described in 



Operators in Boolean Expressions 



The following table lists the operators that can be used in Boolean 
expressions, along with their meanings. When two operators are listed 
on the same line, they are equivalent to each other. 



Operator 


Meaning 


NOT 


A 


logical NOT 


AND 




logical AND 


OR 


1 


logical inclusive OR 


IMP 




logical implication 


EQV 




logical equivalence 


IS 




identical to 


ISNT 




not identical to 


EQL 


= 


equal to 


NEQ 


" = 


not equal to 


GTE 


> 


greater than 


GEQ 


> = 


greater than or equal to 


LSS 


< 


less than 


LEQ 


< = 


less than or equal to 



Ejjfpressions 
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Logical Operators 



The values returned by the logical operators are defined in Table 6-4, 



Table 6-4. Results of Logical Operators 



Operand A I Operand B I NOT A | A AND B I A OR B i A IMP B | A EQV B 



TRUE 


TRUE 1 


TRUE 


FALSE 1 


FALSE 


TRUE 1 


FALSE 


FALSE 1 



FALSE I TRUE | TRUE 

FALSE I FALSE j TRUE 

TRUE ! FALSE | TRUE 

TRUE ( FALSE I FALSE 



TRUE 
FALSE 
TRUE 
TRUE 



TRUE 
FALSE 
FALSE 
TRUE 



The Boolean operations defined above are performed on all 48 bits of the 
Boolean primaries on a bit-by-bit basis. For example, the constant TRUE 
(4"000000000001") does not have the same bit pattern as the Boolean 
expression NOT FALSE, because NOT complements all 48 bits of the 
constant FALSE (4"000000000000" ) y generating 4"FFFFFFFFFFFF" . Even so, 
the constant TRUE and the Boolean expression NOT FALSE have the same 
Boolean value of TRUE because th^ Boolean value of a Boolean primary is 
based upon the value of the low-order bit (bit zero) of the Boolean 
primary (0 is FALSE;; 1 is TRUE). ; 



NOTE 

Exception: When NOT operates on an 
arithmetic relation, the low-order bit 
(bit zero) is complemented; however, the 
other 47 bits are not necessarily 
complemented. For example, if X = Y 
evaluates to iJRUE, then NOT(X = Y) 
evaluates to FALSEj, not necessarily to 
NOT TRUE as would be expected. 



IS and ISNT Operators 



The IS relational operator performs a bit-for-bit compare on its two 
operands. It returns TRUE if the corresponding bits of each operand are 
the same. The ISNT operator is the negation of the IS operator. 
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If the IS operator is used to compare a double-precision arithmetic 
quantity to a single-precision (integer or real) arithmetic quantity, 
the result is always FALSE. 

The IS operator differs from the EQL or = operator, which does an 
arithmetic compare on its operands. Two operands can have the same 
arithmetic value with different bit patterns. Thus, the following pairs 
yield TRUE when compared with the EQL or = operator, but yield FALSE 
when compared with the IS operator: 

1. +0 and -0 

2. A normalized number and the same number not in normalized 
format 

3. A number with an exponent of +0 and the same number with an 
exponent of -0 

4. A number with bit 47 = and the same number with bit 47 =1 
Relational Operators 

The action of the relational operators GTR, >, GEQ, >=, LSS, <, LEQ, <=, 
EQL. =, NEQ, and "= depends on the kinds of items being compared. For 
more information, refer to "<arithmetic relation)," "<complex 
relation)," "<string relation)," "<pointer relation)," and "<string 
expression relation)" in this section. 

Precedence in Boolean Expressions 

The components of Boolean expressions are evaluated in the following 
order: 

1. All arithmetic, complex, pointer, and string expressions are 
evaluated. 

2. All relations, table memberships, and assignments are 
evaluated. 

2. Logical operators are then applied. 



Expressions BOOLEAN 

The order of precedence of the logical operators is as follows: 

1. NOT (highest precedence) 

2. AND 

3. OR, I 

4. IMP 

5. EQV 



Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 

The precedence of the assignment operator (:=) is as follows: 

1. A primary to the right of an assignment operator is evaluated 
before the assignment. 

2. The assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 

Parentheses can be used to override the defined order of precedence. An 
expression in parentheses is evaluated by itself, and the resulting 
value is subsequently combined with the other elements of the 
expression. For example, in the expression 

X AND (Y OR Z) 

the OR Is performed before the AND because of the parentheses. In the 
expression 

X AND y OR Z 

the AND is performed before the QR. 



Boolean Primaries 



The Boolean concatenation expression is described in "Concatenation 
Expression. " 



The partial word part is described in "Partial Word Expression. " 
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The evaluation of a Boolean case expression is described in "Case 
Expression. " 

<Boolean value> 

The Boolean value TRUE is represented internally as a 48-bit word 
containing 4"000000000001" , and the Boolean value FALSE is represented 
internally as a 4S-bit word containing 4-OOOOOOOOOOOC" . 

orithmetic relation> 

An arithmetic relation performs an arithmetic comparison of the values 
of two arithmetic expressions. The value of the relation is either TRUE 
or FALSE . 

< complex relation> 

A complex relation performs a comparison between the values of two 
complex expressions. Because one of the forms of a complex expression 
is an arithmetic expression, the complex relation can also be ^sed^to 
compare a complex value and an arithmetic value. In a complex relation, 
the only allowed relational operators are =, EQL, '-, and NEQ. 



<string relation> 

The string relation syntax causes a comparison to be performed between 
two Character strings referenced by two pointer expressions, or between 
the Character string referenced by a pointer expression and a string 
literal The character strings are compared according to the EBCDIC 
collating sequence. The arithmetic expression specifies the number o 
Characters to be compared (the repeat count). If a string literal 
follows the relational operator and a repeat count has been specifiea, 
then the string literal is concatenated with itself, if necessary, to 
form a 48-bit literal. The comparison is repeated until the repeat 
count is exhausted. If no repeat count is specified, the string 
characters are compared once. 
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<poititer relatione 



A pointer relation determines whether two pointer expressions refer to 
the same character position in the same array row. If the character 
sizes of the two pointer expressions are unequal, the comparison always 
yields the value FALSE. 



A pointer relation should not be confused with a string relation. A 
string relation compares the character strings referenced by pointer 
expressions. A pointer relation compares the pointer expressions 
themselves. For example, if pointers Pi and P2 are initialized as 
follows: 

POINTER P1,P2; 
REAL ARRAY A. B[ 0:1]: 
PI :- PblNTER(A,8); 
P2 := P0INTER(B,8); 
REPLACE PI BY "A"; 
REPLACE P2 BY>A"; 

then the string relation 

PI EQL P2 FOR 1 
would have the value TRUE, but the pointer relation 

PI EQL P2 

would have the value FALSE, because PI refers to array A and P2 refers 
to array E. 

<string expression relation > 



The string expression relation compares two string expressions according 
to the collating sequence of the character type of the string 
expressions. Only string expressions of the same character type can be 
comjaared. 



Two strings are equal only if the lenigths of the two strings are equal 
and if every character in one istring is equal to the corresponding 
character in the other string. Two null strings are equal. 
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One string, is strictly greater than a second string only if at least one 
of the following conditions is true: 

1. The leftmost character in the first string that is not equal to 
the corresponding character in the second string compares as 
greater than the corresponding character in the second string. 

2. The length of the first string is greater than the length of 
the second string, and the two strings compare as equal for the 
length of the second string. 

Whenever two string literals can be compared as two arithmetic 
primaries, they are so compared. For example, the Boolean expression 

"B" > "AA" 

yields a value of FALSE, because the two quoted strings are treated as 
two arithmetic primaries. However, if the two string literals "B" and 
"AA" were assigned to two string variables T and S, respectively, then 
the Boolean expression 

T > S 

yields a value of TRUE, because the first character of T is greater than 
the first character of S. 



For example, if a string SI is assigned the value "AAB12+", then all of 
the following comparisons are TRUE: 

SI EQL TAKE(S1,6) 
SI NEQ HEAD (SI, ALPHA) 
SI GTR HEAD (SI, ALPHA) 
SI LSS DR0P(S1,3) 
SI LSS DR0P(S1,1) 



Table Membership 



The table membership constructs allow testing to determine whether a 
character is a member of a truth set. The character can be either a 
character in a string literal or a character in an array row referenced 
by a pointer expression. In a pointer table membership primary, the 
"FOR <arithmetic expression>" part applies the membership test to the 
first <arithmetic expression > characters to which the pointer expression 
points. 



The <subscripted variable> form of the <truth set table> construct 
allows several truth set tables to be contained in one array row. The 
value of the subscript indicates the beginning of the desired table 



within the array row. 
"TRUl-HSET Declaration." 
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For a description of truth sets, refer to 



Examples 



Valid 



Invalid 



TRUE 

BOOL 

B.[H:1] 

B := TRUE 

El := * AND B2 

CSIN(Cl) = CSIN(C2) 

X > Y 

NOT B 

R = 3 

PTR = "ABCD" 

PI < P2 FOR 20 

SI I I S2 = S3 

happene;d(e) 

CASE I OF (Bl, TRUE, 

NOT FYLE.OPEN 

PI = P2 

BOOL & TRUE [19:1] 

X IN ALPHAS 

PI IN ALPHAS FOR 6 



X=Y ) 



SQRT(X) 

5.67 

-X 

R + TRUE 

CSIN(Cl) > CSIN(C2) 

PI > P2 

SI IS "ABCD" 
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Case expressions provide a means of selecting from a list of expressions 
one expression for evaluation. 



Syntax 



<Gase expression > 

-^ <arithraetic case expression> 

-<Boolean case expression > 

-<complex case expression >— 

-<designational case expression >■ 
-^pointer case expression> 



See also 

<arithmetic case expressions. . 
<Boolean case expressions . . . 
<complex case expressions . . . 
<designational case expression) 
<pointer case expressions . . . 



47b 
493 
507 
512 
519 



semantics 



In a case expression, the list of expressions must be composed of 
expressions of the same kind; for example, all arithmetic expressions or 
all Boolean expressions. The expression to be evaluated is selected as 
follows: 



1. 



^ . 



3. 



The arithmetic expression in the case head is evaluated and 
integerized by rounding, if necessary. 

This value is used as an index into the expression list. The 
component expressions of the expression list are numbered 
sequentially from through N-1, where N is the number of 
expressions in the list. 



The expression selected by the index is evaluated, and 
value is the value of the case expression. 



Its 
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If the value of the index lies outside the range through N-1 , the 
program is discontinued with a fault. 



The type of an arithmetic case expression is DOUBLE if any of its 
constituent expressions is of type DOUBLE; in this case, any constituent 
expression that is not of type DOUBLE is extended to double precision. 
The type of an arithmetic case expression is INTEGER if and only if all 
of its constituent expressions are of type INTEGER. Otherwise, an 
arithmetic case expression is of type REAL. 



Examples 

CASE N OF (2, 20. 100, 37) 

CASE X. [27:2] OF (TRUE. FALSE. TRUE. TRUE) 

CASE I OF (CI, C2, COMPLEX(X,Y)) 

CASE TSTS[ INDEX] OF (LBLl, LBL2, AGAIN, NEXT, MORE) 

CASE CHAR.SZF OF (PTR, PTS , POINTER( A) , PTEMP, POLO) 
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COMPLEX EXPRESSION 



Complex expressions are expressions that return complex values 
(arithmetic values that consist of a real part and an imaginary part) by 
applying specified operations to designated complex primaries. 



Syntax 

< complex expression> 

~ — <arithmetic expression > 

I 

|-<simple complex expression> 

I 

|-<conditional complex expression>- 

< simple complex expression > 

I <- < complex operator > -| 

I I 

- — -<complex primary> 1 

< complex operator > 



- / -i 

< complex primary > 

<arithmetic primary > 

I 

I -<complex operand> 

! 

j i< _ _ I 

! I I 
I ** — <arithmetic primary> 



Expressions 

< complex operand > 

— — < complex variable > — — — - — - — -— 

I ■ 

|- := — ^<compiex primary > • 

I -<update symbols > 

-<complex function designator >—---- — 

- ( — <complex expression>- — ) - — — 

-< complex case expression > — — 
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<complex case expression> 



l<- 



--<caBe head) — (— -<complex expression> ) -- i 

<conditional complex expression) 

— <if clause) — ^^<complex expression)^ — ELSE --< complex expression) — I 



See also 

<arithmetic primary). . . . . . . . . . . . . . . . 476 

<case head) . .... ... ... . . . . . . . . . . . . . . . 263 

<complex function designator) 516 

< complex variable) 237 

<if clause) . . . . . . . . ... ... . . . 319 

< update symbols). . . . . . .... . . . . . . . . . . . . . . 227 



Semantics 



The imaginary part of a complex value can be equal to zero. Because of 
this, an arithmetic expression is, whenever necessary, considered to be 
the real part of a complex expression with a zero imaginary part. No 
automatic type conversion from complex to arithmetic exists. 



The sequence in which the operations of a complex expression are 
performed is determined by the precedence of the operators involved. 
The order of precedence is as follows: 



", / 



(highest precedence) 



2. 
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Operators with the same precedence are applied in their order of 
appearance in an expression, from left to right. 

The precedence of the assignment operator (:=) is as follows: 

i. A primary to the right of an assignment operator is evaluated 
before the assignment. 

2. The assignment is done before the evaluation of an expression 
involving the variable that is the target of the assignment. 

Parentheses can be used in normal mathematical fashion to override the 
defined order of precedence. An expression in parentheses is evaluated 
by itself,, and the resulting value is subsequently combined with the 
other elements of the expression. For example, in the expression 

(C2 + Cl)/C2 

the addition is performed before the division because of the 
parentheses. In the expression 

C2 + C1/C2 

CI is first divided by C2 and then the result is added to C2. 



The evaluation of a conditional complex expression is described in 
"Conditional Expression." 



The evaluation of a complex case expression is described in "Case 
Expression. " 



Excunples 

CI 

Cl + 3 

CI ** X 

CI := COMPLEX! X,Y) 

CI := * - C2 
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CABS (CI) 

(COMPLEX(R,S) * CCON) 

CASE I OF (CI, C2, CLN(C2)) 

IF BOOL THEN CI ELSE C0NJUGATE(C1 ) 
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CONDITIONAL EXPRESSION 

A conditional expression is one that returns one of two possible values, 
depending upon a specified condition. 



Syntax 

<conditional ejcpression> 

<conditional arithmetic expression> 

1 

|-<conditional Boolean expression) ■--■ 

I 

i-<conditional complex expression> 

I 

|-<conditional designational expression)- 

! 

|-<conditional pointer expression) 



See also 

<conditional arithmetic expression) .476 

<conditional Boolean expression) 495 

<conditional complex expression) 507 

<conditional designational expression). . 512 

<conditional pointer expression) • 520 



Semantics 

Conditional expressions are of the form 

IF <Boolean expression) THEN <expression) ELSE <expression> 

Either the first or the second expression is selected for evaluation, 
depending on the value of the Boolean expression. The two alternative 
expressions must be of the same kind: for example, two arithmetic 
expressions or two Boolean expressions. 

The selection process proceeds as follows: 

- The Boolean expression following "IF" is evaluated. 

- If the resulting value is TRUE, the expression following "THEN" 
is evaluated, and the expression following "ELSE" is ignored. 

- If the resulting value is FALSE, the expression following "THEN" 
is ignored, and the expression following "ELSE" is evaluated. 
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If either of the two expressions is itself a conditional expression, the 
process is repeated until an unconditional expression is selected for 
evaluation. 



The type of a conditional arithmetic expression is DOUBLE if either of 
its constituent expressions is of type DOUBLE: in this case, a 
constituent expression that is not of type DOUBLE is extended to double 
precision. The type of a conditional arithmetic expression is INTEGER 
if and only If both of its constituent expressions are of type INTEGER. 
Otherwise, a conditional arithmetic expression is of type REAL 



Examples 

IF BOOL THEN 47 ELSE 95 

IF A = B THEN BOOL ELSE FALSE 

IF NOT BOOL THEN CI ELSE C2 

IF ALLDONE THEN EOJLBL ELSE NEXTLBL 

IF CHAR.SZF = 8 THEN PTRINEBCDIC ELSE PTRINHEX 
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DESIGNATIONAL EXPRESSION 



Designational expressions are expressions that return a value that is a 
label. 



Syntax 

<designational expression > 

<label designator> • 

I 

I -<designational case expression> 

I 

I -<conditional designational expression>- 

<label designator) 



<label identifier > — 

i 

!-<switch label identifier) — [ — <subscript> — ] 



<designational case expression) 

|< ^ ___j 

i i 
— <case head> — ( <designational expression) ) — 

<conditional designational expression) 

— <if clause) — <designational expression)- — ELSE — 

)-<designational expression) ■ 



See also 

<case head) 263 

<if clause) . 319 

<label identifier). 128 

< subscript) . 43 

<switch label identifier) 195 



Semantics 



Expressions 
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If a designational expression is a label identifier, then the value of 
the expression is that label. 



If a designational expression is a subscripted switch label identifier, 
then the numerical value of the subscript designates one of the elements 
in the switch label list. The value of the. subscript is rounded, if 
necessary, to an integer. This value is used as an index into the 
switch label list. The entries of the list are numbered sequentially 
from 1 through N, where N is the number of entries in the list. The 
entry corresponding to the value of the subscript Is selected. If the 
value of the subscript is outside the range of the switch label list, 
program control continues to the next statement without any error 
indication. (For more information about the switch label list, refer to 
"SWITCH LABEL Declaration,") 



The evaluation of a designational case expression is described in 
Expression. " 



'Case 



The evaluation of a conditional designational expression is described in 
"Conditional Expression." 



Examples 



ENDLABEL 

CH00SELABEL[I+2] 

CASE X OF (GOTDATA, GOTERR , GOTREAL, GOTCHANGE , ESCAPE) 

IF K = 1 THEN SELECT[2] ELSE START 
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A function expression is an expression that returns a single value that 
is the result of invoking a procedure. The procedure can be declared in 
the program, or it can be an intrinsic procedure. 



Syntax 



<function expression> 

■<arithinetic function designator>- 

I 

|-<Boolean function designator > — — 

I 

|-<complex function designator > 

I 

!-<pointer function designator> 

■ I 
!-<string function designator> ■ 



Semantics 



There are two kinds of functions: predefined functions, called 
intrinsic functions, which are part of the ALGOL language, and 
programmer-defined functions, which are typed procedures that are 
declared in the program. 



The intrinsic functions are described later in this chapter under the 
heading "Intrinsic Functions." 



See also 

Intrinsic Functions 
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Arithmetic Function Designator 



An arithmetic function designator specifies a function that returns an 
arithmetic value — a value of type INTEGER, REAL, or DOUBLE. 
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Syntax 

<arithmetic function designator> 

— <procedure identifier > — -— — — - " 

I : i I .' 

l-<arithmetic intrinsic name>-l l-<actual parameter part>-l 

<arithmetic intrinsic name> 

Any of the names listed under the heading "Arithmetic Intrinsic 
Names" in this chapter. 



See also -s,, 

<actual parameter part> . . . . . .... - • • • • ^^^ 

Arithmetic Intrinsic Names. .;.....••••• ^^^ 

<procedure identifier>. . . . ;. • • • • • • ♦ • * • • • 



Semantics 

The procedure specified by the procedure identifier must be of type 
INTEGER, REAL, or DOUBLE. 

Boolean Function Designator 

A Boolean function designator specifies : a function that returns a 
Boolean value— a value of TRUE or FALSE, 



Syntax 

<Boolean function designator> 

< procedure identif ier> — — — ""' ' 

I i 
-<Boolean intrinsic name>- I i-<actual parameter part>- 
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<Boolean intrinsic name> 

Any of the names listed under the heading "Boolean Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> 346 

Boolean Intrinsic Names ............ 531 

<procedure identifier>. . 165 



Semantics 



The procedure specified by the procedure identifier must be of type 
BOOLEAN. 



Complex Function Designator 

A complex function designator specifies a function that returns a 
complex value — a value with a real part and an imaginary part. 

Syntax 

<complex function designator> 

<procedure identifier > -— | 

I I I I 

i-<complex intrinsic name>-| |-<actual parameter part>-| 

<complex intrinsic name> 

Any of the names listed under the heading "complex Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> ... 24b 

Complex Intrinsic Names 531 

<procedure identifier> 165 



517 
ExpressionE FUNCTION 



Semantics 



The procedure specified by the procedure identifier must be of type 
COMPLEX. 



Pointer Function Designator 



A pointer function designator specif ies; a function that returns a 
pointer value— a value that can be used to refer to a character position 
in an array row. 



Syntax 

<pointer function designator) 

— /pointer intrinsic name> — octual parameter part> — | 

<pointer intrinsic name> 

Any of the names listed under the heading "Pointer Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> • • • « . . . 34fc 

Pointer Intrinsic Names ... 531 



Semantics 



Unlik,e the other function designators, the syntax for pointer function 
designator does not allow a procedure identifier as part of the syntax. 
There is no PROCEDURE declaration that allows declaring a procedure of 
type POINTER. 
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String Function Designator 



A String function designator specifies a function that returns a string 
value — a hexadecimal string, an ASCII string, or an EBCDIC string. 



Syntax 

<string function designator) 

— ■--<string procedure identifier) — • 

I ■ II. 

|-<string intrinsic name> 1 |-<actual parameter part>- 



<string intrinsic naine> 

Any of the names listed under the heading "String Intrinsic Names" 
in this chapter. 



See also 

<actual parameter part> ...... 346 

String Intrinsic Names. ............. . 531 

<string procedure identifier) ..... 165 



Semantics 



A String procedure identifier designates a procedure declared with a 
type of HEX STRING, ASCII STRING, or EBCDIC STRING. 
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POINTER EXPRESSION 



A pointer expression is an expression that returns a value that is a 
pointer, which can be used to reference a character position in an array 
row. 



Syntax 



<pointer expression) 

<simple pointer expression> — • ^^- I 

! I : 

l-<conditional pointer expression)- i : 

<simple pointer expression) 

-<pointer primary) • — ^~- ! 

I I I 

I |-<skip>-| 

I ■ I 

l-<pointer assignment) -I 

I . I 
|-<character array part) I 

<pointer primary) 

<pointer identifier) .— i 

■ I I : 

I- ( — <pointer expression) — ) -I 

! i 

|-<pointer case expression)—- ! 

I i 

|-<pointer function designator >— i 

<pointer case expression) 

l<— — . — — ^— i 

i : i 

-~<case head)— ( <pointer expression)- — ) 



<skip) 



+ <arithmetic primary)- 

i i 
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<character array part;> 

-• — <charactGr array row> — 



I 
l< , I I 



|-<character array name>— [ ^<subscript> — - ] -| 

^character array row> 

An <array row> whose identifier is declared with a ^character type>. 

< character array name> 

An <array name> whose identifier is declared with a ^character 
type > . 

<conditional pointer expression> 

— <if clause> — <pointer expression>— ELSE — <pointer expression> — | 



See also 

<arithmetiG priinary> 475 

<array naine>. 43 

<array rQW> 43 

<case head> . . , , 263 

< character type>. ........... 42 

<if clause> 319 

<pointer assignment> . , . 241 

<pointer function designator> .... 517 

<pointer identifier> 160 

< subscript > .............. 43 
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Semantics 

A pointer must be initialized befor^e it can be used; otherwise, a 
run-time error occurs. A pointer can be initialized in the following 
ways: 

1. By a pointer assignment 

2. By appearing as an update pointer in any of the following: 

- a REPLACE statement 

- a SCAN statement 

a string relation in a Boolean expression 
the DOUBLE function 
the INTEGER function 

The evaluation of a conditional pointer expression is described in 
"Conditional Expression." 

(pointer primary> 

A one-dimensional array designator or a fully subscripted variable can 
be interpreted as a pointer primary whenever context determines that no 
conflict exists with other valid constructs (for example, when a pointer 
expression is required). This syntax can be used for such constructs as 

REPLACE A BY B FOR 10 WORDS 
Where A and B are one-dimensional arrays. 

The evaluation of a pointer case expression is described in "Case 
Expression." 



<sk.ip> 

t ■ ^ 
If the <slcip> construct is used, the value of the arithmetic primary 
determines the adjustment to the value of the pointer primary. If N is 
the value of the arithmetic primary, the pointer is adjusted as follows: 

- If N is less than or equal to zero, the pointer is not adjusted. 
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- If N is greater than zero, then the pointer is adjusted N 
characters to the right if the <skip> construct specifies "+", or 
N characters to the left if it specifies "-". Skipping to the 
right is defined as incrementing the value of, the character 
index. Skipping to the left is defined as decrementing this 
value. 



If the aajustment to the value of the pointer primary is given by the 
value of an arithmetic expression, note that the arithmetic expression 
must be enclosed in parentheses. For example, the expression 

PTR + X*Y 

is invalid and will get a compile-time error. It is correctly written 
as 

PTR + (X*Y) 



Pragmatics 



The use of a pointer expression to skip up and down an array for more 
than a few words is expensive. Each word of the array is accessed in 
order to ensure that no memory-protected words are encountered. For 
pointer moves of more than a few words, it is faster to re-index the 
array and use the POINTER function for word arrays, or to re-index the 
array for character arrays. 



Exaunples 

PTR 

PTS+15 

PTR := POINTER! A) 

(PTEMP + (X*Y)) 

HEXARAY 

HEXARAY[Nj 

CASE VAL OF ( PTR, PTS , PTEMP, PSORCE ) 

POINTER (INFO. 8) 

READLOCK(PTR,POLD) 

IF BOOL THEN PI ELSE POINTER(A) 
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STRING EXPRESSION 



A String expression is an expression that returns a value that is a 
hexadecimal string, EBCDIC string, or ASCII string. 



Syntax 

<string expression> 

— <string primary> — ■- — -— - — ■ — .-__ — — — : > 

>^ ___.__._____.._________^_____ __________ _ _ I 

j |< _ _ ___ ______ ____! I 

I i I I 

I — -<string concatenation operator > — ■<string primary> — -| 

< string concatenation operator > 

CAT I 

I M 
I- I I —I 

<string primary> 

— — <string constant> — .-——-. -r-- ( 

i . ' : 

|-<strlng variable>~ I 

■ I j: 

i-<subscripted string variable>- — ■--]: 

I . 1: ■ 

l-<string function designator>- i 

i ■ L 

|-<string-valued library attribute>- I 

.1 I; . 

I- ( — <string expresslon>~ ) — —I 

< string constant > 

— EMPTY ~ I 

i , ■: I 

|-<EBCDIC string constant > — •- I 

; I ■ 

I ■ ■ ■. I 

|-<ASCII string constant> — — } 

! ! ; 

|-<hexadecimal string constant >- I 
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<EBGDIC string constant> 

— — EMPTY8 -■ - 
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I I 



II 
I I 



.1 — <EBCDIC string>-^ " - 

I 
■^<EBCDIC code>-| 

- 48 " ~<hexadeciinal string> — " 

- 480 -i 

, . I 
-28 " — <quaternary string> — " • — I 

i I 

- 280 -! I 

I 

- 18 " ~<binary string> — " 1 

■ i 

- 180 -j 



<ASCII string constant> 



EMPTY? 



I<- 



I I 



II 



.. — <ASCII string>~ " - 

I 
-<ASCII code>-| 

- 47 " — < hexadecimal string> — " — 

i 

- 470 -i 

- 27 " — <quaternary string> — " 

- 270 -i 

- 17 " — <binary string> — " 

- 170 -; 
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<hexadecimal string constants 
— - EMPTY4 — — — — — 

. r ■ 



1^^ 4— — •• — <hexadeciinal string> — " 

.1 . I 

1-40-1 



1-24 " --<quaternary string>— " -( 

,1 I i 

I- 240 -i I 

1-14 — — " --<binary string>~ " ! 

■ i ■ • i -■ 
1-140 -! 

<string variable> 

— <string identifier> — I 

<subscriptGd string variable) 

. ( . . ' I 

— < string array identifier >-- [ -■ — < subscript >- — ] ~ 

<string-valued library attribute) 

— <library identifier) — . ■ — — 

>-<string-valued library attribute name) — ■ — ^^— 



<constant string expression) 

A <string expression) that can be fully evaluated at compile time. 



See also. 

<library identifier). .... . . . . . . . . ... . . , . . , i29 

<string array identifier) .... 187 

<string function designator). ,. . . .... . . . . . . . . . . sig 

<string identifier) . . . ... . . . . . . . . . i85 

<string-valued library attribute name). ... . . . . . , . . . 129 

<subscript) . . . . . ..................... 43 
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Semantics 



In the syntax for EBCDIC string constant. ASCII string constant, and 
hexadecimal string constant, the string codes determine the 
interpretation of the characters between the quotation mark-s (") and has 
no effect on the justification of a string. A string is always 
left-justified; therefore, any "0" in a string code is ignored. 



The <h.LCijlu ..:....,■ c-Joliuci is c].. . . o--- .j .,.. ah l.l'^/l1C string constant 
containing an EBCDIC string only if the default character type is 
EBCDIC. The <ASCII code> construct is optional in an ASCII string 
constant containing an ASCII string only if the default character type 
is ASCII. For more information, refer to "String Code" in the chapter 
"Language Components" and "Default Character Type" in the appendix "Data 
Representation." 



The reserved words EMPTY8, EMPTY? , and EMPTy4 represent null strings of 
the character types EBCDIC, ASCII, and hexadecimal, respectively. The 
reserved word EMPTY represents a null string of the default character 
type. 



For more information about string-valued library attributes, refer to 
"Library Attributes" in the "Interface to the Library Facility" chapter. 



String Concatenation 



The operators CAT and | I are used to concatenate two strings. The 
concatenation of two strings yields a new string whose length is the sum 
of the lengths of the two original strings, and whose value is formed by 
Joining a copy of the second string immediately onto the end of a copy 

of the first string. 



Only strings of the same character type can be concatenated, 



If more than one string primary is used in a concatenation operation, 
they are evaluated from left to right. 
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Pragmatics 



No more than 256 characters can appear between one pair of quotation 
marks in a string constant; ; however, as many as 4095 characters can 
appear in an EBCDIC string constant;, ASCII string constant, or 
hexadecimal string constant. 



See also 

Default Character Type. . . . . ................ 817 

Library Attributes. . . . . . . 665 

String code ............ 36 



Examples 

8"ABCD123" % result = ABCD12: 

""WHY"48"6F"""" % result = "WHY?" 

EMPTY 8 % result = 

S2 I I S3 

"AC" I I 32 M "123"' 

SI 11 TRANSLATE (S2,HEXT0EBCDIC) 

HEAD (S, ALPHA) 

TAIL(S,NOT •'-") 

REPEAT ("ABC", 3 I 

STRING(256,* ) 

TAKE(S,2) 

DR0P(TAKE(S,4) .2) 

TRANSLATE ( S , HEXTOEBCDI C ) 
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6.2 iMTRmsic FyncTipyg 

Intrinsic functions are typed procedures that are predefined in the 
ALGOL language; that is, intrinsic functions can be used without being 
declared. 



INTRINSIC NAMES BY TYPE RETURNED 

The intrinsic functions of ALGOL return values of type INTEGER, REAL, 
DOUBLE, BOOLEAN, COMPLEX, POINTER, and STRING. 

Arithmetic Ititrinsic Names 

The following intrinsic functions return arithmetic values (values of 
type Integer, real, and double). 



Expressions 
Alphabetical Listing of Arithmetic Intrinsic Functions 
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The type of the value each function returns, INTEGER, REAL, or DOUBLE, 
is indicated by I, R, or D, respectively , following the name of the 
function. 



ABS (R) 
ARCCOS (R) 
ARCS IN (R) 
ARGTAN (R) 
ARCTAN2 (R) 
ARfeAYSEARCH (I) 
ATANH (R) 
CABS (R) 
CHECKSUM (R) 
CLOSE (I) 
COMPILETIME (R) 
COS (R) 
COSH (R) 
COTAN (R) 
DABS ( D ) 
DAND (D) 
DARCCOS (D) 
DARCSIN (D) 
DARCTAN (D) 
DARCTAN2 ( D ) 
DCOS (D) 
DCOSH (D) 
DECIMAL (D) 
DELINKLIBRARY (I) 
DELTA ( I ) 
DEQV (D) 
DERF (D) 
DERFC (D) 
DEXP (D) 
DGAMMA (D) 
DIMP (D) 
DINTEGER (D) 
DLGAMMA (D) 
DLN (D) 



DLOG (D) 
DMAX (D) 
DMIN (D) 
DNABS (D) 
DNOT (D) 
DOR (D) 
DOUBLE ( D ) 
DSCALELEFT ( D ) 
DSCALERIGHT (D) 
DSGALEilGHTT (D) 
DSIN (h) 
DSINH (D) 
DSQRT (D) 
DTAN (D) 
DTANH ( D ) 
ENTIER (I) 
ERF (R) 
ERFC (R) 
EXP (R) 
FIRST (R) 
FIRSTONE ( I ) 
FIRSTWORD (R) 
GAMMA ( R ) 
IMAG (R) 
INTEGER (I) 
INTEGERT (I) 
LENGTH ( I ) 
LINENUMBER (I) 
LINKLIBRARY (I) 
LISTLOOKUP (I) 
LN (R) 
LNGAMMA (R) 
LOG ( R ) 
MASKSEARCH (I) 



MAX ( R ) 

MESSAGESEARCHER (I) 
MIN (R) 
NABS (R) 
NORMALIZE (R) 
OFFSET (I) 
ONES (I) 
OPEN (I) 
POTC (D) 
POTH (D) 
POTL (D) 
PROCESSID (I) 
RANDOM (R) 
READLOCK (R) 
REAL (R) 

REMAININGCHARS (I) 
SCALELEFT (I) 
SCALER IGHT (I) 
SCALERIGHTF (R) 
SCALER I GHTT ( I ) 
SECONDWORD (R) 
SETACTUALNAME (I) 
SIGN (I) 
SIN (R) 
SINGLE (R) 
SINK (R) 
SIZE (I) 
SQRT (R) 
TAN (R) 
TANK (R) 
TIME (R) 
VALUE (I) 
WAIT (I) 
WAITANDRESET (I) 
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Listing of Arithmetic Intrinsic Functions by Type Returned 

Intrinsic Functions Returning Values of Type INTEGER 



ARRAYSEARCH^ 

CLOSE 

DELINKLIBRARY 

DELTA 

ENTIER 

FIRSTONE 

INTEGER 

INTEGERT 

LENGTH 

LINENUMBER ^ 



LINKLIBRARY 
'LISTLOOKUP 
«MASKSEARCH 

MESSAGESEARCHER 

OFFSET 

ONES 

OPEN 

PROCESSID 

REMAIN I NGCHARS 



SCALELEFT 

SCALER I GET 

SCALERIGHTT 

SETACTUALNAME 

SIGN 

SIZE 

VALUE 

WAIT 

WAITANDRESET 



Intrinsic Functions Returning Values of Type REAL 



ABS 


ERFC 


ARCGOS 


EXP 


ARCS IN 


FIRST 


ARCTAN 


FIRSTWORD 


ARCTAN2 


GAMMA 


ATANH 


I MAG 


CABS 


LN 


CHECKSUM 


LNGAMMA 


COMPILETIME 


LOG 


COS 


MAX 


COSH 


MIN 


COTAN 


NABS 


ERF 


NORMALIZE 



RANDOM 

READLOCK 

REAL 

SCALERIGHTF 

SECONDWORD 

SIN 

SINGLE 

SINK 

SQRT 

TAN 

TANH 

TIME 



Intrinsic Functions Returning Values of Type DOUBLE 



DABS 

DAND 

DARCCOS 

DARCSIN 

DARCTAK 

darctan; 

DCOS 

DCOSH 

DECIMAL 

DEQV 

DERF 

DERFC 



DEXF 

DGAMMA 

DIMP 

DINTEGER 

DLGAMMA 

DLN 

DLOG 

DMAX 

DM IN 

DNABS 

DNOT 

DOR 



DOUBLE 

DSCALELEFT 

DSCALERIGHT 

DSCALERIGHTT 

DSIN 

DSINH 

DSQRT 

DTAN 

DTANH 

POTC 

POTK 

POTL 
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Boolean Intrinsic Names 



The following intrinsic functions return values of type BOOLEAN. 



ACCEPT READ 

AVAILABLE READLOCK 

BOOLEAN REMOVEFILE 

CHANGEFILE SEEK 

CHECKPOINT SPACE 

FIX WAIT 

FREE WRITE 
HAPPENED 



Complex Intrinsic Names 

The following intrinsic functions return values of type COMPLEX, 



CCOS CONJUGATE 

CEXP CSIN 

CLN CSQRT 
COMPLEX 



Pointer Intrinsic Names 

The following intrinsic functions return values of type POINTER, 



POINTER 
READLOCK 



String Intrinsic Names 



The following intrinsic functions return values of type STRING 



DROP STRING? 

HEAD STRINGS 

REPEAT TAIL 

STRING TAKE 

STRINGS TRANSLATE 
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INTRINSIC FUNCTION DESCRIPTIONS 

For arithmetic intrinsic functions, all arithmetic parameters are 
assumed to be call-by-value. For a further description of some of the 
arithmetic intrinsic functions, refer to the chapter "Mathematical 
Functions" in the "System Software Utilities Reference Manual." 



<abs function> 

— ABB — ( — <arithmetic expression> — ) — 1 

The ABS function returns, as a real value, the absolute value of the 
specified arithmetic expression. 



<accept statement > 

The ACCEPT statement returns a Boolean value. For more information 
refer to "ACCEPT Statement." 



xarccos function> 

— ARCCOS — ( — <arithmetic expression> — ) — i 

The ARCCOS function returns, as a real value, the principal value of the 
arccosine (in radians) of the specified arithmetic expression, where 
-i < ^arithmetic expression> < 1. If the value of the arithmetic 
expression is not in this range, a run-time error occurs. 



<arcsin function> 



— ARCSIN — ( --<arithmetic expression >— ) -■ 



The ARCSIN function returns, as a real value, the principal value of the 
arcsine (in radians) of the specified arithmetic expression, where 
-1 < 'varithmetic expression > < 1. If the value of the arithmetic 
expression is not in this range, a run-time error occurs. 
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<arctan function> 



— ARCTAN — ( — <arithmetic expression >-- ) — 



The ARCTAN function returns, as a real value, the principal value of the 
arctangent (in radians) of the specified arithmetic expression. 



<arctan2 function> 

-- ARCTAN 2 -- ( ~<arithmetic expression>— . 
>-<arithmetic expression> — ) — — ■■ 



The ARCTAN2 function returns, as a real value, the arctangent (in 
radians) of 

first <arithmetic expression> / second <arithmetic expression> 

the returned value is adjusted to fall in the range (-pi to -t-pi ) by the 
following formula: 

Let X be the value of the first arithmetic expression and Y be the value 
of the second arithmetic expression. ; 

If Y > 0, 

ARCTAN2(X,Y) = ARCTAN(X/Y) 
If Y = 0, 

ARCTAN2(X,Y) = SIGN(X) "" pi / 2 
If Y < C, 

ARGTAN2(X,Y) = ARCTAN(X/Y) + SIGNi(X) * pi 



534 

Intrinsic Functions ALGOL REFERENCE MANUAL 

orrayseareh function > 



— ARRAYSEARCH — ( — <arithmetic expression > — , ^ 

>-<arithinetic expression> — . <array row> ■- ) I 

I I 

|-<subscripted variable>-i 



See also 

<array row> • ^^ 

<subscripted variable>. ..... • • 225 

The ARRAYSEARCH function searches for a specific value within an array. 
The first arithmetic expression is the value being searched for (the 
target value). The second arithmetic expression is the mask, to be used 
in the search. The third parameter is a row or subscripted variable of 
an array of type INTEGER, REAL, BOOLEAN, or COMPLEX. 

If the third parameter is an array row, the search begins with the last 
element of the specified array row; otherwise, the search begins with 
the element specified by the subscripted variable. Each element, in 
turn, is retrieved, logically ANDed with the value of the mask, and 
compared, using the IS operator, with the target value, which has also 
been logically ANDed with the mask. If the comparison yields TRUE, the 
function returns an integer value equal to the difference between the 
subscript of the element where the value is found and the subscript of 
the first element in the array. If the comparison yields FALSE, the 
subscript of the element to be retrieved is decremented by one, and the 
search continues until either a match is found or the first element of 
the array has been examined. If no match is found, -1 is returned. 



The ARRAYSEARCH function can be used on paged (segmented) arrays and 
unpaged (unsegmented ) arrays. 



<atanh function> 

— ATANH — ( — <arithmetic expression-' — ) — I 

The ATANH function returns, as a real value, the hyperbolic arctangent 
of the specified arithmetic expression. 



EXpressiohs 
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ovallable function> 



~ AVAILABLE — ( —<event designator >— ) — ^ I 



See also 

<event designator >., . , . . 



78 



The AVAILABLE function is a Boolean function that returns TRUE if the 
available state of the specified event is TRUE (available) and returns 
FALSE if the available state is FALSE (not available). 



<Boolean function > 



— BOOLEAN -- ( — <ar i thmetic expression > — ) — 



The BOOLEAN function returns the value of the arithmetic expression as a 
Boolean value. If the arithmetic expression is double precision, its 
value is first truncated to single precision. 



<cabs function> 



CABS ■ — ( — <complex expression >-- ) — 



The CABS function returns, as a real value, the absolute value of the 
specified complex €?xpression. 



<ocos function > 



— CCOS -- ( --< complex expression > — ) -- 



The CCOS function returns , as a :complex value, the complex cosine of the 
specified complex expression. 
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<cexp function> 

---- CEX? — ( — <complex expression> — ) — I 

The CEXP function returns, as a complex value. 

e "" < complex expression > 
where e is the base of the natural logarithms. 

<changefile statement > 

The CHANGEFILE statement returns a Boolean value. For more information 
refer to "CHANGEFILE Statement." 

^checkpoint statement > 

The CHECKPOINT statement returns a Boolean value. For more information 
refer to "CHECKPOINT Statement." 



Expressions 
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<check.sum function> 

— CHECKSUM — ( — <array row> — , ■ — <starting index> — , > 

>-<ending index> — ) -■ — ■ ■- I 

< starting index> 

— <arithmetic expression> — I 

<ending index> 

~<arithmetic expression> — I 



See also 

<array row> 



43 



The CHECKSUM function returns, as a real value, a hash function of all 
bits in the words of the array row beginning with the word indexed by 
<starting index> and up to, but not including, the word indexed by 
<ending index>. Both <starting index> and <ending index> are rounded to 
an integer value before they are used to index the array row. The value 
of this function can be used to verify the integrity of data being 
transferred or stored. The array row must be single precision and 
unpaged (unsegmented) . 



<cln function> 



— CLN — ( — < complex expression > — ) -- 



The CLN function returns, as a complex value, the natural logarithm 
the specified complex expression 



of 



<close statement > 



The CLOSE statement returns an integer 
refer to "CLOSE Statement." 



value 



For more information 
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<compiletime function> 

— COMPILETIME — ( — <constant arithmetic expression> — ) 



See also 

<constant arithmetic expression>. . . • • • • • • • • • • • . • 476 



The COMPILETIME function obtains various system time values at compile 
time, for use by the object program. The form of the value returned by 
the COMPILETIME function is the same as that returned by the TIME 
function for the same argument. The returned value is compute"^ " ■ 
compiler using the TIME function at compile time. For more information, 
refer to the TIME function in this section. 



COMPILETIME( 20) returns, in integer form, the program version number as 
set by the most recent VERSION compiler control option. 



C0MPILETIME(21) returns, in integer form, the program cycle number as 
set by the most recent VERSION compiler control option. 



COMPILETIME(22) returns, in integer form, the program patch number as 
set by the most recent VERSION compiler control option. 



< complex function> 



-- COMPLEX — ( — <arithmetic expression > — , 
>-<arithmetic expression> — ) 



The COMPLEX function returns, as a complex value, 

first <arithmetic expression> + i =" second <arithmetic expression) 

where i is the square root of -1. The arithmetic expressions are first 
rou-;ded to single precision, if necessary. 
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<con jugate function> 

-- CONJUGATE — ( — <complex expression)-- ) — I 

The CONJUGATE function returns,, as a complex value. the complex 
conjugate of the specified complex expression. 

<cos function> 



— COS -- ( — <arithmetic expression)— 






The COS function returns, as a real value, the cosine of an angle 01 
<arithmetic expression) radians. 



<cosh function> 

— COSH -- ( — <arithmetic expression) — ) — I 

The COSH function returns, as a real value, the hyperbolic cosine of the 
specified arithmetic expression. 

<cotan functlon> 

— COTAN — ( — <arithmetic Expression) — ) — i 



The COTAN function returns, as a; real value, the cotangent of an angl^ 
of <arithmetic expression) radians. 



<csin function> 

— CSIN — { —(complex expression) — • ) — ; 

The CSIN function returns, as a complex value, the complex sine ci th; 
specified complex expression. 
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<csqrt function> 

— CSQRT — ( — <complex expression) — ) — 



The CSQRT function returns, as a complex value, the square root of the 
specified complex expression. 



<dabs function > 



— DABS — ( — <arithmetic expression) — ) — 



The DABS function returns, as a double-precision value, the absolute 
value of the specified arithmetic expression. 



<dand function > 

— DAND — ( — <arithmetic expression) — , > 

>-<arithmetic expression) — ) ■ -■ ■ I 

The DAND function returns, as a double-precision value, 

first <arithmetic expression) AND second <arithmetic expression) 

The arithmetic expressions are first extended to double precision, if 
necessary, and the AND operation is performed on all 96 bits. 

<darccos function > 

-- DARCCOS — ( — <arithmetic expression) — ) — ! 



The DARCCOS function returns, as a double-precision value, the principal 
value of the arccosine (in radians) of the specified arithmetic 
expression, where -1 < <arithmetic expression) < 1. If the value of the 
arithmetic expression is not in this range, a run-time error occurs. 



Expressions; 
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<darcsin function> 



DARCSIN — { -~<arithmetlc expression> — ) -- 



The DARCSIN function returns, as a double-precision value, the principal 
value, of the arcsine (in radians) of the specified arithmetic 
expression, where -1 < <arithmetic expression> < 1. If the value of the 
arithmetic expression is not in this range, a run-time error occurs. 



<darctan function> 



— DARCTAN -- { — -orithmetic expression > — ) — 



The DARCTAN function returns, as a double-precision value, the principal 
value of the arctangent (in radians) of the specified arithmetic 
expression. 



<darctan2 function> 



: — DARCTAN2 — ( — <arithmetic expression> — . 

>-<arithmetic expression>-- ) — ■ 



The DARCTAN2 function returns, as a double-precision value. the 
principal value of the arctangent (in radians) of 

first orithmetic expression> / second <arithmetic expression> 



<dcos function > 



— DCOS — ( --< arithmetic expression) — ) 



The DCOS function returns , as a double-precision value, the cosine of an 
angle of <arithmetic expression) radians. 
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<dcosh funGtion> 



-- DCOSH — ( — orithmetic expression > — ) — 



The DCQSH function returns, as a double-precision value, the hyperbolic 
cosine of the specified arithmetic expression. 



<decimal function > 



— DECIMAL — ( ~<string expression-- — ) — 



The DECIMAL function returns the double-precision value represented by 
the string expression. 



The string expression must yield a valid <number> on evaluation (see 
"Number" in the chapter "Language Components"). For example, the 
assignment 

D := DECIMAL(STR): 

is valid for the strings 

STR = "+5497823" 

STR = "1.75(3-46" 

STR = "-4.31458" 

STR = "02" 

STR = " + 549" I I "7823" 

However, for the strings 

STR = "50 00." 

STR = "1,505,278,00" 

STR = "1(32.5" 

STR = ".573"! !"5.82" 

the program is given a run-time error. 



Expressions 
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< del i nk,l ibrary f unc t ion > 



--DEL.INKLIBRARY — (—^< library identifier>— ) -- 



See also 

< library identifier > 



. 129 



The DELINKLIBRARY function delinks the program from the librar 
specif ied by the library identifier. The DELINKLIBRARY function affects 
■only the linkage between the program and the indicated library; other 
programs using the library program are not affected. This function 
returns an integer value that indicates success or failure and the 
reason for failure. The values returned by the function can be 
interpreted as follows: 



Value 



Meaning 



1 The library has been delinKed from the program. 
The library was not linked to the program. 

-1 The library structure could not be accessed; a system fault has 
occurred. 



cdelta function > 



- DELTA — ( — < pointer expression 



>-- ,— <pointer expression> > 



>- ) 



The DELTA function returns , as. an integer value, the number of 
Characters between the character position referenced by the first 
pointer expression and the character position referenced by the second 
pointer expression. The value is calculated as follows: the character 
position referenced by the first pointer expression is subtracted from 
the character position referenced by the second pointer expression. 



For a function that returns the number of characters between the 
character position referenced by a pointer expression and the beginning 
of the arrav row. seethe OFFSET function in this section. For a 
function that returns the number of characters between the character 
position referenced by a pointer expression and the end of the array 
row. see the REMAININGCHARS function in this section. 



544 

Intrinsic Functions ALGOL REFERENCE MANUAL 

<deG^ function> 



— DEQV — ( — <arithmetic expression > — . 
>-<arithmGtic expression) — ) 



The DEQV function returns, as a double-precision value, 

firsc <arithinetic expression) EQV second Orithmetic expression) 

Both arithmetic expressions are first extended to double precision, if 
necessary, and the EQV operation is performed on all 96 bits. 

<der.f function> 

— rjERF — ( — <arithmetic expression) — ) — j 



The DERF function returns, as a double-precision value, the value of the 
standard error function at the specified arithmetic expression. For any 
valid N. DERF(-N) = -DERF(N). 



cderfc function) 



DERFC -- ( — <arithmetic expression) — ) 



The DERFC function returns, as a double-precision value, the complement 
of the value of the standard error function at the specified arithmetic 
expression. For any valid N, DERFC(N) = i - DERF(N). 



<dexp function> 

— DEXP -- ( — <arithmetic expression)-- ) — ! 

The DEXP function returns, as a double-precision value 

e "" orithmetic expression) 
wnere e is the base of the natural logarithms. 



Expressions 
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<dgamma functlon> 



DGAMMA — ( — orithmetic expression> — ) 



The DGAMMA function returns, as a dduble-precision value, the value of 
the gamma function at the specified arithmetic expression. 



<dimp function> 



~ DIMP — ( — <arithmetic expression)-- , 
>-<arithmetic expression)— ) — — 






The DIMP function returns, as a double-precision value, 

first <arithmetic expression) IMP second ^arithmetic expression) 

Both arithmetic expressions are firit extended to double precision, if 
necessary, and the IMP operation is : performed on all 96 bits. 



<dinteger function> 



— DINTEGER— ( ~<arithmetic expression)— ) 



The DINTEGER function returns the vklue of the arithmetic expression as 
a double-precision integer value. Specifically, the function returns 



DOUBLE (ENT I ER 



(<arithmetic expression) + 0.5)) 



<dl gamma function) 



— DLGAMMA — < — <arithmetic expression >■ 



The DLGAMMA function returns, as a double-precision value, the natural 
logarithm of the gamma function at the specified arithmetic expression. 
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inct ion > 



DLN --- { — <arithinetic expression >-- ) — | 



The DLN function returns, as a double-precision value, the natural 
logarithm of the specified arithmetic expression. 



Juiiction> 



DLOG — ( — < arithmetic expression > — ) — 



:he DLOG function returns, as a double-precision value, the base-10 
.ogarithm of the specified arithmetic expression. 



liaax function > 



DMAX -~ ( < arithmetic expression) ) --| 



The DMAX function returns, as a double-precision value, the maximum of 
the values of all the specified arithmetic expressions. 



<dJMln function > 



DMIN — ( <arithmetic expression) ) — - 



Tne DMIN function returns, as a double-precision value, the minimum of 
tne values of all the specified arithmetic expressions. 



Expressions 
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<dnabs function> 



-- DNABS — ( — <arithmetic expression> — ) 



The DNABS function returns, as a doiuble-precision value, the negative of 
the absolute value of the specified; arithmetic expression. 



<dnot function> 



— DNOT — ( --<arithmetic expression) — ) — 



The DNOT function returns, as a double-precision value, the logical 
complement of the value of the ctrithmetic expression. The arithmetic 
expression is first extended to double precision, if necessary, and the 
NOT operation is performed on all 96 bits. 



<dor function> 



— DOR — ( — <ar,ithmetic expression) — , 
>-<arithmetic expression) — ) — ' — 



The DOR function returns, as a double-precision value, 

first <arithmetic expression) OR second <arit:hmetic expression) 

Both arithmetic expressions are first extended to double precision, if 
necessary, and the OR operation is ^performed on all 9b bits. 
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<double function > 



The DOUBLE function has three forms, each of which returns a 
double-precision value. 



■- DOUBLE — ( — orithmetic expression> — ) — 



This form of the DOUBLE function returns the value of the arithmetic 
expression extended to a double-precision value. 



— DOUBLE — ( — <arithmetic expression)-- , — <arithmetic expression>-> 
>- ) — _ __ , 



This form of the DOUBLE function returns a double-precision value in 
which the first word is equal to the value of the first arithmetic 
expression and the second word is equal to the value of the second 
arithmetic expression. The arithmetic expressions are first 
truncated to single precision, if necessary. 



— DOUBLE — ( <pointer expression) — , 

I I 

|-<update pointer)- I 

>-<arithmetic expression) — ) •- 



See also 

<update pointer) 37Q 



This form of the DOUBLE function returns, as a double-precision 
value, the decimal value represented by the string of characters 
starting with the character pointed to by the pointer expression. 
The arithmetic expression specifies the length of the string and 
must have a value, when rounded to an integer, less than 24. 



A zone field configuration of 1"1101" for 8-bit characters or 1"10" 
for b-bit characters in the least significant character position 
causes the result of the function to be negative. With 4-bit 
characters, a 1"1101" in the most significant character position 
results in a negative value. 
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The state of the pointer expres$ion when the count is exhausted can 
be preserved by using the <upda^e pointer) construct. 



<;drop function > 

■-- DROP -- ( --<string. expression)-- , -- <arithmetic expression) ) 

The DROP function returns a string with a value equal to the value ot 
Che string expression with the fir^st <arithmetic expression) characters 
.-deleted. The value of the' arithm|etic . expression is rounded to an 
integer. if necessary. An error-, occurs if the rounded value of the 
,-rrJthmetic expression is greater than the number of characters in the 
itring expression or less than |;zero. If the rounded value of the 
nrithmetic expression is zero, the result is the same as the value of 
iiiC string * expression. If th^ rounded value of the arithmetic 
expression is equal ' to the length qf the string expression, the result 
is the null string. i. ; 



The DROP function and the TAKE fur^ction are complementary functions. 
Thi^- means that for any string expression S and any arithmetic 
expression A m the range <=:a <^ LENGTH! S), the following relation is 
always TRUE: I 

s - take(s,a) cat DR0P(S,A) 



the TAKE function in this section 



EKgiupl_es 



In the examples below. string S has a\ length of b and contains 

B^'ABCDEF" . i ; 



,iiOPfs,2) - 8"CDEF" 
DR0P(TAKE(S,4),2) - 8"CD" 
0ROP(S,6) = tne null string 
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<dscaleleft function> 



— DSCALELEFT ~ ( ~<arithmetic expression > — , 
>-<arithmetic expression> — ) — --■ — -— 



The DSCALELEFT function returns, as a double-precision value, 

first <arithinetic expression>*(10 *" second <arithmetic expression)) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. The DSCALELEFT function is undefined when 
the integerized value of the second arithmetic expression is less than 
or greater than 12. 



<dscaleright function > 



— DSCALERIGHT — ( ~<arithmetic expression >~ , 
>-<arithmetic expression)— ) — — — __ 



The DSCALERIGHT function returns, as a double-precision value, the 
rounded result of 

first <arithmetic expression>/(lO *** second <arithmetic expression)) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than or greater than 
12. 



Expressions 
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<dscalerightt function> 

— DSCALERIGHTT— ( ~<ari thmet:ic expression>— , —————— > 

>-<arithmetic expr€?ssion> — ) — — — — " — — ^- — — 

The DSCALERIGHTT function returns, :as: a double-precision value, the 
truncated result of 

first <arithmetioexpression>/( 10 -- second <arithinetic expression > ) 

v^here the second arithmetic express jdn, rounded to ^"^ r^^'^^-J^.^ 
value in th0 range o to 12. A run-itime error occurs if the mtegerized 
value Of the second arithmetic expression is less than G or greater than 

12. 



<dsin functioh> 



- l!)SIN — ( — <arithmetic expression >—) ~ 



The DSIN function returns, as a double-precisi 
angle of ^arithmetic expression> radians. 



ion value, the sine of an 



<dsinh function> 



— DSINH — ( —<arithmetic expression >— ) — 



The DSINH function returns, as a dduble-precision value, the hyperbolic 
sine of the specified arithmetic ejipression. 



<dsqrt function > 



— DSQRT 



— ( — < arithmetic expression > — ) — 



The DSQRT function returns, as a double-precision value, the square roo. 
of the specified arithmetic exi^ression: The value of the arithmetic 
expression must be greater than or equal to zero. 
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<dtan function > 



DTAN -- ( — <arithmetic expression 



The DTAN function returns, as a double-precision value, the tangent of 
an angle of <arithmetic expressicn> radians. ' - 



i auction > 



DTANH — ( --<ar ithmetic expression)-- ) 



The DTANH function returns, as a double-precision value, the hyperbolic 
tangent of the specified arithmetic expression. 



< en tier f unci ion > 



•- ENTIER -- ( --<arithmetic expression) — ) -- 



The ENTIER function returns the largest integer not greater than the 
value of the arithmetic expression. 



Because of the limitations of f:njt€- r^P'^'es <■-'■• o* i- ^ -■ I'-i'inetir 
ENTIER function erroneously returns ■pp^rc- rarhf^'- ^hi : -j to- r^ -, \rc 
numbers of small magnitude. For a s i n=?R-Drf='"i <: i on oxpr-scin,- i . 
threshold is -0.5 * a""-13 (apprcximateiy -Q-OgE-l?.), This number 
correctly yields -1. whereas the next smaller (in magnitude) 
single-precision number incorrectly yields zero. For a double-precision 
expression, the threshold can differ on various systems (because of 
different algorithms for double-precision rounding), but it is in the 
vicinity of -c---~2b (approximately -3.31E-24). 



Tne ENTIER function returns an incorrect resu't f o^- c • >- t' i --. - . r - ■ , -,- 

negative integers less than or equal to -(8**32 i,_ I'Hp. v.--; or ;u, 
function for an integer expression should be equal to the value of thf 
expression. However. ENTIER( -6S71947b736 ) returns £ value oi 
-6S719476737. 



The ENTIER function is not a simple truncation function, as illustrated 
by the examples. For a simple truncation function, see tio^ INTEGERT 
function in this section. 
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Examples 

ENTIER(2.6) =2 
ENTIERO.l) = 3 
ENTIER(-O.Ol) =-1 
ENTIER(-3.4) = -4 
ENTIER(-1.8) =-2 

<erf function > 

— ERF — ( --<arithmetic express ion >~ ) — I 

The ERF function returns, as a real value, the value of the standard 
error function at the specified arithmetic expression. For any valid N, 
ERF(-N) = -ERF(N). 



<erfc function> 

— ERFC — ( — <arithmetic expression>~ ) — I 

The ERFC function returns, as a real value, the complement of the value 
of the standard error function at the specified arithmetic expression. 
For any valid N, ERFC(N) = 1 - ERFCN). 



<exp function> 

— EXP — ( — <arithmetic expression> — ) — 

The EXP function returns, as a real value, 

e ** <arithmetic expression> 
where e is the base of the natural logarithms. 
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-Air£S: funct.ion> 



— FIRST — ( — <string expreEsion> — ) -- 



The FIRST function returns, as a real value, the ordinal position in the 
EBCDIC, ASCII, or hexadecimal collating sequence of the first character 
in the string expression. This function returns an ordinal position in 
the EBCDIC collating sequence if the string expression is EBCDIC, an 
ordinal position in the ASCII collating sequence if the string 
expression is ASCII, and an ordinal position in the hexadecimal 
collating sequence if the string expression is hexadecimal. A run-time 
error occurs if the string expression is the null string. 



E xamples 

FIRSTC'ABC") = 193 {4"C1") 
FIRST(7"NNXX") = 78 (4"4E") 
FIRST(4"F1F2") = 15 (4"0F") 

<firstone function> 



— FIRSTONE — ( — orithmetic expression >-- ) — | 

The FIRSTONE function returns, as an integer value, the bit number plus 
1 of the leftmost nonzero bit In the value of the arithmetic expression. 
The FIRSTONE function returns zero if all the bits are zero. If the 
expression is double precision, only the first word of its value is 

examined. 



<flrstword function> 



— FIRSTWORD — ( 



> 



>-<ari thmetic expression> ) j 

I I 

I- , — <real variable>-| 



See also 

<real variable > 447 
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The FIRSTWORD function returns, as a real value, the first word of r.he 
double-precision arithmetic expression. The arithmetic expression is 
first extended to double precision.; if necessary. If the real variable 
parameter is specified, the second word of the double-precision 
arithmetic expression is stored in the variable. 



<fix statement > 

The FIX statement returns a Boolean value. For more information, refer 
to "FIX Statement. " 



<free statement > 

The FREE statement returns a Boolean value. For more information, refer 
to "FREE Statement." 



< gamma function> 

— GAMMA — ( --<arithmetic expression> — ) — i 

The GAMMA function returns, as a real value, the value of the gamma 
function at the specified arithmetic expression. 

< happened function > 

-- HAPPENED -- ( — <event designator>— ) -- ! 



See also 

<event designator 



7 8 



The HAPPENED function is a Boolean function that returns TRUE if the 
happened state of the specified event is TRUE (happened) and returns 
FALSE if the happened state is FALSE (not happened). 
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<head function > 



HEAD — ( — <string expression> — , — <string character set> 

>_ ) ^__ _ 

<string character set> 

<string constant) ! 

I I I I 

I- NOT -, |-<truth set table>-| 



See also 

<string constant) 523 

<truth set table> 382 



The HEAD function returns a string whose value consists of the leftmost 
characters of the string expression up to, but not including, the first 
character that is not a member of the string character set. If the 
first character of the string expression is not a member of the string 
character set, the null string is returned. If all characters of the 
string expression are members of the string character set, the entire 
string expression is returned. 



The string character set must be of the same character rype as the 
string expression. If a truth set table is used, it must not be 
composed of characters of different character types. "NOT" indicates a 
string character set made up of all characters that are not specified in 
the string constant or truth set table, but that are of the same 
character type as the string expression. 



The HEAD function and the TAIL function are complementary functions. 
This means that for any string expression S and any string character sei 
C, the following relation is always TRUE: 

S = HEAD(S,C) CAT TAIL(S,C) 

See the TAIL function in this section. 
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Examples 



In the examples below, S is a string of length 9 that contains 
8"ABC/l-2+3". 



HEAD (S, NOT "/") = 8 "ABC" 
HEAD (S, ALPHA) = 8 "ABC" 
HEAD(S,"123") = the null string 



<imag function> 

— IMAG — ( — ^< complex express! on > — ) ~ 



The IMAG function returns, as a real value, the imaginary part of the 
specified complex expression. 



For a function that returns the rekl part of a complex expression, see 
the REAL function in this section.' 



< integer function > 

The INTEGER function has two forms:, each of which returns an integer 
value. 



— INTEGER — ( — <arithmetic expression>- — ) -- I 

This form of the INTEGER ;function; returns the value of the 
arithmetic expression , integerized with rounding. Specifically, it 
returns 

ENTIER( <arithmetic expressions- + 0.5) . 
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— INTEGER — ( — ■ ■ <pointer expression)-- , 

l-<update pointer >- I 

>-<arithmetlc expression > — ) — — ■- — ■ '■ 



See also 

<update pointer >. ........ .......... 379 



This form of the INTEGER function returns, as an integer value, the 
decimal value represented by the string of characters starting with 
the character pointed to by the pointer expression. The absolute 
value of the integer value to be returned must be less than or equal 
to 549755813887. 



The arithmetic expression specifies the length of the string of 
characters and must have a value, when rounded to an integer, less 
than 24. If the rounded value of the arithmetic expression is 24 or 
greater, the program is terminated with a fault. If the length is 
zero, a result of zero is returned. 



A zone field configuration of 1"1101" for 8-bit characters or 1"10" 
for 6-bit characters in the least significant character position 
causes the result of the function to be negative. With 4-bit 
characters, a 1"1101" in the most significant character position 
results in a negative value. 



The state of the pointer expression when the count is exhausted can 
be preserved by using the <update pointer> construct. 



<integert function> 



— INTEGERT — ( — <arithmetic expression > — ) — 



The INTEGERT function returns the value of the arithmetic expression 
integerized with truncation. 



The INTEGERT function does not necessarily return the same value as the 
ENTIER function. For example. INTEGERT (-1.2) = -1, but 
ENTIER(-1.2) = -2. 
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<length function> 



— LENGTH — ( — cstring expr'essionx-- ) 



The LENGTH function returns, as an integer value, the number of 
characters in the string that results from evaluation of the string 
expression. The null string has a length of zero. 



<linenumber function > 



— LINENUMBER 



The LINENUMBER function returns ,: as an integer value 
number of the source file record on which it appears. 



the sequence 



<linklibrary function> 



— LINKLIBRARY — ( --<library identifier>— ) — 



See also 

<library identifier >. 



. 129 



The LINKLIBRARY function determines whether or not the program is 
currently linked to or is capable of being linked to the library program 
specified by the library identifier. Results Indicating a successful 
linkage are returned by the LINKLIBRARY function if the program is 
presently linked to the library or if the program is capable of being 
linked, in which case the LINKLIBRARY function performs the linkage. If 
the program cannot be linked to the library, the function returns a 
result indicating the reason for the failure. In either case, the 
program continues to execute: that is , use of the LINKLIBRARY function 
prevents termination or suspe^nsion of a program upon an unsuccessful 
attempt to link to a library. 



During the linkage process, an attempt is made to link to every entry 
point exported from the library whose name matches an entry point 
declared in the program. Only those names that match are checked for 
correct function type, number! of parameters, and parameter types. 
Therefore, the LINKLIBRARY function does not check that every entry 
point declared in the program 1^ also exported from the library. 
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The values -returned by the LINKLIBRARY function can be interpreted as 
follows: 



Value Meaning 



2 Successful linkage was made to the library, but not all entry 
points were provided. 

1 Successful linkage was made to the library, and all entry 
points were provided. 

The program was already linked to the specified library at the 
time of the LINKLIBRARY call. 

-1 The library code file is missing. 

-2 The family size of a process running in Swapper was exceeded on 
the attempt to link to the library. 

-3 A by-calling procedure specified more than one library task. 

-4 The library is not a system library. 

# 

-5 The number or types of parameters provided by the library do 
not correspond to those declared in the program. 

-6 The library was terminated, canceled, or thawed before being 
frozen; therefore, the library was not successfully initiated. 

-7 A circular chain of library linkages was detected. A library 
cannot reference itself, either directly or indirectly, through 
a chain of library references. 

-8 A by-calling procedure never specified a library task. 

-9 A bad task was passed by a by-calling library procedure. 

-10 A library feature that was used is not implemented. 

-11 The library template contained an illegal provision type. 

-12 The library template level is obsolete. This program must be 
recompiled. 

-13 The library directory level is incompatible with the library 
template level. The older program must be recompiled. 

-14 The program cannot link to a system library. 

-15 A task array for a by-calling library was not declared in the 
library* s stack. 
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Value Meaning 



-16 This program is not authorized to use this library procedure. 

-17 The library is not visible to the program attempting to link to 
the library. 



< list lookup function> 






— LISTLOOKUP — ( — <arithmetic expression) — , — <array row> > 

>- , — <arithmetic expressions — ) — I 



See also 

<array row> 



43 



The LISTLOOKUP function causes a linked list of words to be searched and 
returns, as an integer value, an index into the list as follows: 

1. The array row is indexed; by the value of the second arithmetic 
expression and the word is extracted. Each word contains a 
value (in field [47:28]) and a link (in field [19:20]) to the 
next word of the linked list. 

2. If the value in the extracted word is greater than or equal to 
the value of the first arithmetic expression, the operation 
stops, and the index of the word whose link points to the 
extracted word is returned by the function. 

3. If the value in the extracted word is less than the value of 
the first arithmetic expression,: the link of the extracted word 
is used as an index into thel array row, a new word is 
extracted, and the process is repeated. 



A word with a link of zero terminates the search. The value of a word 
is tested only if the link field is nonzero. If the linked list is 
exhausted (if a word with a link of zero is encountered), a value of -1 
is returned by the LISTLOOKUP function. 
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<lri function> 



LN — ( — <arithnietic expression^-- ) 



The LN function returns, as a real value, the natural logarithm of the 
specified arithmetic expression. 



Ingamma function > 



-- LNGAMMA — ( — <arithmetic expression > — ) — 



The LNGAMMA function returns, as a real value, the natural logarithm of 
the gamma function at the specified arithmetic expression. 



<log function> 

— LOG — ( — <arithmetic expression>-- ) — i 



The LOG function returns, as a real value, the base-10 logarithm of the 
specified arithmetic expression. 



<mask.search function> 

— MASKSEARCH — ( — <arithmetic expression> — , > 

>-<arithmetic expression> — , <array row> ) 1 

I I 

I -<subscripted variable>-| 



See also 

<array row;- 43 

<subscripted variable> , 225 



The MASKSEARCH function performs the same operations as the ARRAYSEARCH 
function, except that it is intended for use only with unpaged 
( unsegmented) arrays. 
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If the third parameter to the MASKSEARCH function is an array row or a 
subscripted variable of a paged (segmented) array, then a warning 
message is given at run time. This warning message is given only the 
first time the statement containing the MASKSEARCH function is executed. 



If the third parameter is an array row of a paged array, execution of 
the MASKSEARCH function causes a fault. ; 

If the third parameter is a subscripted variable of a paged array, then 
no fault is generated at run time, but the results can be unexpected. 
The MASKSEARCH function searches only the 256-word segment containing 
the specified array element. If the target value is found in that array 
segment, the index reiativeJ:o th e beginning of the segment is returned. 
If the target is not found in that segment, -1 is returned. 



<max function> 

i<-— — — , "-I 

I I 

— MAX — ( <arithraetic expression> — - ) — I 

The MAX function returns, as a real value, the maximum of the values of 
all the specified arithmetic expressions. 

<messagesearcher stcitement> 

The MESSAGESEARCHER statement returns an integer value. For more 
information, refer to "MESSAGESEARCHER Statement." 

<min function> 



— MIN — ( ^arithmetic e5ipression> ) — i 

The MIN function returns, as a real value, the minimum of the values of 
all the specified arithmetic expressions. 



564 

Intrinsic Functions ALGOL REFERENCE MANUAL 

<nabs function > 



~ NABS — ( --orithitietic expression) — ) — 



The NABS function returns, as a real value, the negative of the absolute 
value of the specified arithmetic expression. 



< normalize function > 



— NORMALIZE — ( ~<arithmetic expression > — ) — 



The NORMALIZE function returns, as a real value, the value of the 
arithmetic expression, normalized and rounded to a single-precision 
operand. (For more information on normalized format, refer to "Real 
Operand" in the appendix "Data Representation.") 



See also 

Real Operand 820 



<offset function> 



— OFFSET — ( — <pointer expression>-- 



The OFFSET function returns, as an integer value, the number of 
characters between the character position referenced by the pointer 
expression and the beginning of the array row, not including the 
character at which the pointer expression is pointing. The function 
value is in terms of the character size of the pointer expression. If 
it is a word pointer, the offset is given in terms of 8-bit characters. 
If the pointer expression points to a paged (segmented) array, the 
OFFSET function returns the total offset from the beginning of the first 
segment of the row. 



For a function that returns the number of characters between the 
character position referenced by a pointer expression and the end of the 
array row, see the REMAININGCHARS function in this section. 
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joes fii.nct.1.on> 



ONES 



( — <:arlthmetic e5<lprGssion> — ) 



e ONES function returns, as an iinteger value, the number of nonzero 
t':. in the value of the ariithraet ic expression. If the arithmetic 
Mression is double precision, all 96 bits of its value are examined. 



fT n' fo^urns an inJteger value. For more information 



■■I'-o- -jter fusiction> 



POINTER -- ( - — <array row> 

i ■ <subscriptied variable>- 

i ; 

- . '.character size>--ii 

i V 

|-<pointer primary >- i^ ' 



:haracter size> 

I I 

i i 

i- 6 - i 

1 i 

! - 7 - ^ 

j - 8 -- i 



See also t : 

<array row> ....,........•, 43 

< pointer primary > ..... 519 

<subscripted variable). ...:... .' 225 
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The POINTER function generates a pointer to the specified location 



If the first parameter is an array row, the pointer references the first 
oharacter of the first word of the specified array row. If the first 
parameter is a subscripted variable, the pointer references the first 
character of the array element specified by the subscripted variable. 

If the second parameter is not given, the character size of the pointer 
is six or eight bits, depending on the default character type. (For 
more information on the default character type, refer to "Default 
Character Type" in the appendix "Data Representation.") 

If the second parameter is a character size of 4, 6, or 8, the character 
size of the pointer being generated is four bits, six bits, or eight 
bits, respectively. If the second parameter is a character size of 7, 
the character size of the pointer is eight bits. If the second 
parameter is a character size of 0, the pointer is word-oriented, rather 
than character-oriented: it is single precision if the array it points 
to is single precision (INTEGER, REAL, or BOOLEAN) and double precision 
if the array is double precision (DOUBLE or COMPLEX). 

If a pointer primary is given as the second parameter, the character 
size of that pointer primary is used for the character size of the 
pointer being generated. 



See also 

Default Character Type. . . . . . . . .... . . . . . • • • .817 



NOTE 

The BCL data type is not supported on all 
A Series and B 5000/B 6000/B 7000 Series 
systems. The appearance of a BCL 
construct that may cause the creation of 
a BCL descriptor, such as a 6-bit 
pointer, will cause the program to get a 
compile-time warning message. 
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Examples 



BEGIN 

ARRAY A1,A2[0:9]; 

POINTER PI, P2,P3,P4,P5; 

PI := POINTERS Al); 

P2 := POINTERS All 9]); 

P3 := P0INTER(A1,4); 

P4 :- POINTER(A2[6] .P3); : 

$ SET BCL 

P5 := POINTER(Al): % LAST STATEMENT 
END. 



Execution of this program has the following results: 



PI This pointer has a character size of eight bits (the default 
character type is EBCDIC when Pi is assigned) and points to the 
first 8-bit character of the first element of array Al. 

P2 This pointer has a character size of eight bits and points to 
the first 8-bit character of element 9 of array Al. 

P3 This pointer has a character sizie of four bits and points to 
the first 4-bit character of the first element of array Al . 

P4 This pointer has a character si2ie of four bits and points to 
the first 4-blt character of element 6 of array A2. 

P5 This pointer has a character size of six bits (when P5 is 
assigned, the default character type is BCL) and points to the 
first 6-bit character of the first element of array Al. 
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<pot function> 
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POTL - — [ — orithmetic expression) — ] — I 

I I 
I- POTC -i 

I I 

i - POTH - j 

The POT (Power of Ten) functions. POTL (low), POTC (center), and POTH 
(high), together provide the value 

10 ** <arithmetic expression) 

from three tables that are double-precision, read-only arrays. Each of 
the POT functions is defined only for integerized values of the 
arithmetic expression falling in the range through 29604. The 
complete value of 10 ** <arithmetic expression) can be computed using 
the following arithmetic expression: 

POTL[<arithmetic expression) .[ 5:6] ] 

* POTC[ orithmetic expression) . [11 : 6] ] 

* POTH[<arithmetic expression). [14:3]] 

Examples 



RESULT := POTL[X] ; % WHERE X < 64 

DEFINE POT(T) = ( POTL[T. [ 5 . 6 ] ] * POTC[T . [ 11 : 6 ] ] 
ONEDIVTENTOI := 1 / POT(I); 



POTH[T. [14:3]])# 



<processid function > 



— PROCESSID — 



The PROCESSID function returns a positive integer 
identifies the process executing the function. 



value that uniquely 



The PROCESSID function returns a value that remains unique to that 
process for the duration of its execution. However, the value is not 
guaranteed to be the same on every invocation of the PROCESSID function. 
For example, upon restarting from a checkpoint, the value of the 
PROCESSID function can have changed. Also, after a process terminates, 
its PROCESSID value can be assigned to a new process. 
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< random function > 

— RANDOM — ( — <arithmetic ;variable:>— )— I 



See also 

<arithmetic variable> 



. 225 



The RANDOM function returns, as a real value, a random number that is 
greater than or equal to and less than 1. The arithmetic variable is 
a call -by-name parameter, and its value is changed each time the 
function is referenced. A compile-time or run-time error occurs if the 
parameter is not a single-precision arithmetic variable. 



<read statement > 

The READ statement returns a Boolean value. For more information, refer 
to "READ Statement." 



<readlock. function> 

Talcing only one memory cycle, the READLOCK function stores the value of 
the specified expression in the designated variable and returns the 
previous contents of the variable. 

The READLOCK function has three forms. One form returns a real value, 
one form returns a Boolean value, and one form returns a pointer. 

— READLOCK — ( — <arithmetic expression>-- , — <arithmetic variable>-> 



See also 

<arithmetic variable> . . . . • • • • • •••••••••••• ^25 

This form of the READLOCK function stores the value of the 
arithmetic expression in the arithmetic variable and returns the 
previous contents of the variable as a real value. Both the 
variable and the expression must be single precision. 
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— READLOCK -- (— <Boolean expression>~ , — <Boolean variable)— ) — 



See also 

<Boolean variable) . . . . . . . . . . .... . . . . . . ... 234 



This form of the READLOCK function stores the value of the Boolean 
expression in the Boolean variable and returns the previous contents 
of the variable as a Boolean value. 



— READLOCK — ( — <pointer expression) — . — <pointer variable)— ) 

See also 

<pointer variable) .... . . 241 



This form of the READLOCK function stores the value of the pointer 
expression in the pointer variable and returns the previous contents 
of the variable as a pointer value. 



<real function> 

The REAL function has four forms, each of which returns a real value. 
— REAL — ( — <arithmetic expression)-- ) — | 



This form of the REAL function returns the value of the arithmetic 
expression rounded to a single-precision, real value. 



--REAL — ( — ■<Boolean expression) — ) — 



This form of the REAL function returns the value of the Boolean 
expression as a real value. All bits of the Boolean expression are 
used. 



Expressions 
REAL — ■ ( --< complex express ion >~ ) — 
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This form of the REAL function returns* as a real value, the real 
part of the specified complex expression. 



For a function that returns the imaginary part of a complex 
expression, see the IMAG function in this section. 



— REAL — ( ~<pointer expressidn>— ,— /arithmetic expression) — ) -| 



This form of the REAL function returns, as a real value, the string 
of <arithmetic expression) characters starting with the character 
indicated by the pointer expression. 



If the arithmetic expression indicates a string of characters that 
is less than or equal to 48 bits long, this string is 
right-justified in one word with leading zeros, if necessary, and 
this word is returned as the function result. If the arithmetic 
expression indicates a string of characters more than 48 bits long 
but less than or equal to 96 bits long, this string is 
right-justified with leading zeros, if necessary, in a two-word 
operand, and then only the first word is returned as the function 
result. If the arithmetic expression indicates a string of 
characters more than 96 bits long, a run-time error occurs. 



<reiiiainingchars function > 



— REMAIN INGCHARS — ( — <pointer expression)— ) — 



The REMAININGCHARS function returns, as an integer value, the number of 
characters between the character position referenced by the pointer 
expression and the end of the array row, including the character at 
which the pointer expression is pointing. The returned value is in 
terms of the character size of the pointer expression. If it is a word 
pointer, the value returned is in terms of 8-bit characters. If the 
pointer expression points to a paged (segmented) array, the 
REMAININGCHARS function gives the number of characters left in the 
entire array row. 



? 



For a function that returns the number of characters between the 
character position referenced by a pointer expression and the beginning 
of the array row, see the OFFSET function in this section. 
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<removefile statement > 



The REMOVEFILE statement returns a Boolean value. For more information, 
refer to "REMOVEFILE Statement." 



<reF>eat function> 

— REPEAT — ( — <string expression> — , — <ar.ithmetic expression >-> 
>_ ) _ _ _ _ _ ._ I 

The REPEAT function returns a string according to the following rules: 

1. If <arithmetic expression> = 0, the result of the REPEAT 
function is the null string. 

2. If <arithmetic expression > > 0, the result of the REPEAT 
function is the same as if <arithmetic expression> occurrences 
of the value of the string expression were all concatenated 
together. 

3. If <arithmetic expression > < 0, the result of the REPEAT 
function is either a compile-time or a run-time error. 



The value of the arithmetic expression is rounded to an integer, if 
necessary, before it is used as the repeat count. 



Examples 

REPEAT ( "ABC" , 3 ) = "ABCABCABC" 

REPEAT( "WON'T WORK" , ) = the null string 

<scaleleft function> 

— SCALELEFT ~ ( — <arithmetic expression) — 
>-<arithmetic expression > — ) — 
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The SCALELEFT function returns . aS an integer value, 

first orithmetic expression>> ( IG '^^ second <arithmetic expression>) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. The SCALELEFT function is undefined when 
the integerized value of the second arithmetic expression is less than 
or greater than 12.. 



<scaleright function > 

— SCALERIGHT — ( — <arithme:tic expression 
>-<arithmetic expression >-- ): — 



The SCALERIGHT function returns, as an integer value, the rounded result 

first <arithmetic expression>/(10 ** second <arithmetic expression)) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than or greater than 
12. 



<scalerlghtf functlon> 



— SCALERIGHTF — ( ~-<ar i thitietic expression 
>-'<arithmetic expression >— ) — ■ — ■ 






The SCALERIGHTF function returns, as a real value, a left-Justified, 
packed decimal (4-bit decimal) number representing 

first ^arithmetic expression) MOD (ID '^-second xarithmetic expression)) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than or greater than 
12. 

The number of significant digitS; returned by the function is equal to 
the integerized value of the second arithmetic expression. The external 
sign flip-flop (EXTF) is set to reflect the sign of the first arithmetic 
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expression- for use with the editing phrases specified in a PICTURE 
declaration. 



Examples 

SCALERIGHTF( 1234,4) = 4"12340000000C" 
SCALERIGHTF( 12345678, 12) = 4"000012345678" 

<scalerightt function> 

— SCALERIGHTT — ( — orithmetic expression >— , 
>-<arithinetic expression) — ) 



The SCALERIGHTT function returns, as an integer value, the truncated 
result of 

first orithmetic expression>/( 10 ** second <arithmetic expression)) 

where the second arithmetic expression, rounded to an integer, has a 
value in the range to 12. A run-time error occurs if the integerized 
value of the second arithmetic expression is less than or greater than 
12. 



<secondword function > 



— SECONDWORD — ( — <arithmetic expression)— ) — 



The SECONDWORD function returns, as a real value, the second word of the 
double-precision arithmetic expression. The arithmetic expression is 
first extended to double precision, if necessary. 



For a function that returns the first word of a double-precision 
arithmetic expression, see the FIRSTWORD function in this section. 
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<seek statement > 



The SEEK statement returns a Boolean value. For more information, refer 
to "SEEK Statement." 



/vsetactualname function> 

-- SETACTUALNAME — ( ~<library entry point identifier >-~ , - > 
>-<pointer express ion >■ — ) — — — —■ ■ - " i 

<library entry point identifier> ; 

A <procedureidentifier> declared with a <library entry point 
specif ication> . 



See also ; 

<library entry point specif ication> . .; . • • • • • 1^9 

<procedure identifier >. . . . ^ . . • • • ........••• 165 

The SETACTUALNAME function determines whether or not the ACTUALNAME of 
the library entry point specified by the library entry point identifier 
can be changed to the name pointed i to by the pointer expression. The 
function then makes the change, if it is possible. Results of a 
successful change are returned upon completing the ACTUALNAME change; 
otherwise, results indicating the reason for failure are returned. 

The ACTUALNAME of an entry point of a linked library cannot be modified. 
Therefore, a linked library mufet be delinked before calling the 
SETACTUALNAME function to change the ACTUALNAME of any of its entry 
points. The function can be Called to modify an entry point of a 
library that has not yet been linked. 

Starting with the first character pointed to by the pointer expression, 
characters are included as the new entry point name until either a 
period Is encountered, the maximum allowable number of characters is 
included, or the end of the array row is encountered. The last case 
results in an error condition. 
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The SETACTUALNAME function returns the following integer values 
Value Meaning 



1 A successful change was made to the ACTUALNAME of the entry 
point. 

The new ACTUALNAME is the same as the current ACTUALNAME of the 
entry point. 

-1 The library is linked. The library must be delinked before the 
SETACTUALNAME function is called. 

-2 The library entry point identifier is not currently in an 
accessible library template. 

-3 A parameter error occurred in the SETACTUALNAME function. 

Example 



REPLACE NEWEPNAME BY "ENTRYP0INT2. "; 
SETACTUALNAME ( EP2 , NEWEPNAME ) : 

Changes the ACTUALNAME of the library entry point EP2 to 
"ENTRYP0INT2", if possible. 



<sign function > 



■- SIGN -- ( — <arithmetic expression> — ) — i 



The SIGN function returns an integer 1 if the value of the arithmetic 
expression is greater than zero, an integer if the value of the 
arithmetic expression is equal to zero, and an integer -1 if the value 
of the arithmetic expression is less than zero. 
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<sin funGtlon> 



— SIN — ( — <arithmetic expression>~ ) --I 

The SIN function returns, as a real value, the sine of an angle of 
<arithitietic expression > radians. 



<single function> 

— SINGLE— ( — <arithmetic expression> — ) — I 

The SINGLE function returns, as: a real value, the value of the 
arithmetic expression normalized and truncated to single precision. 

<sinh function> 

— SINK— ( — <arithmetic expression>-- ) — ! 

The SINH function returns, as a real value, the hyperbolic sine of the 
specified arithmetic expression. 

<size function> 

— SIZE— ( — -<array designator >-■ ) — ! 

: I !; ^ 

l-<pointer identifier >- I 



See also 

<array designator >.. . . . • • • • ♦ • . . . • • 

<pointer identifier>. ..........••• ^^^ 

The "SIZE! <array designator >)" form of the SIZE function returns, as an 
integer value, the size of one dimension of the specified array in 
elements. If the array designator is an array name, the SIZE function 
returns the size of the first dimension of the specified array. If the 
array designator contains a subarray selector, the SIZE function returns 
the size of the dimension that corresponds to the first asterisk ( * ) 
subscript . 
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The "SIZE(<pointer identifier>)" form of the SIZE function returns, as 
an integer value, the character size of the specified pointer. If the 
character size of the pointer is four, six, or eight bits, the value 
returned is 4, 6, or 8, respectively. If the pointer is word-oriented, 
the value returned is or 2, depending on whether the pointer is single 
precision or double precision, respectively. If the pointer is 
uninitialized, the SIZE function returns zero. See the POINTER function 
in this section for a discussion of character size. 



<SF>ace statement > 



The SPACE statement returns a Boolean value. For more information, 
refer to "SPACE Statement." 



<sqrt function > 

~ SQRT — ( — <arithmetic expression>-- ) -- 



The SQRT function returns, as a real value, the square root of the 
arithmetic expression. The value of the arithmetic expression must be 
greater than or equal to zero. 



<string function> 

STRING ( ■ — > 

I i 

i- STRING4 -i 

I ! 

i- STRING? -! 

i I 

I- STRINGS -I 

>- — <pointer expression> — , — xarithmetic expression>-- — ) | 

i I 

|-<arithmetic expression^ — , — -<arithmetic expression>- I 



The STRING function returns a . string value. The function STRING4 
returns a hexadecimal string, the function STRING? returns an ASCII 
string, and the function STRINGS returns an EBCDIC string. The function 
STRING returns a string of the default character type. (For more 
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information on the default character type, see "Default Character Type- 
in the appendix "Data Representation.") 



See also q-^-j 

Default Character Type. ......•• , . . . 

If the first parameter to the STRING function is a pointer expression, 
the STRING function converts the string of characters pointed to by the 
pointer expression into a string. The number of characters converted is 
siven by the value of the arithmetic expression, rounded to an integer, 
ff necessary. If this rounded value is less than zero, a compile-time 
or run-time error occurs. If the rounded value is zero, the null string 
is returned. 

If the first parameter to the STRING function is an arithmetic 
expression, the STRING function returns a string consisting of a decimal 
representation of the value of that arithmetic expression If the 
second parameter Is also an arithmetic expression then the value of 
?his expression, rounded to an integer, specifies the length of the 
resulting string. If this value is less than zero, a complle-time or 
>: - m^'error^ccurs. If this value is equal to -^^^-^^^^^^ 
is returned. If the second parameter is an asterisfc C), the resulting 
strlnri"exactly long enough to represent the value of the arithmetic 
S ess on with' no blanks . If : the -lue of the first arithmeic 
expression is zero and the second parameter is an asterisk, the 
resulting string Is one character long- 
When the STRING function is to return an ASCII or EBCDIC string and the 
first parameter is an arithmetic expression, its value is converted into 
the most efficient form, depending on the length specified by the second 
parameter If both parameters : are arithmetic expressions and the 
rounded value Of the second parameter is greater than the minimum number 
Of characters needed to represent the first parameter, leading blanl^s 
are inserted in the resulting string. If both parameters are arithmetic 
expressions and the rounded value of the second parameter is less than 
the number of characters needed to represent the first parameter, then a 
string of all astertsfcs is returned. 

For the function STRING4, when the first parameter Is an arithmetic 
expression, only the integer portion of the value of this expression is 
converted If both parameters to STRINGS are arithmetic expressions and 
?he rounded value N of the second parameter is less than the number of 
Characters needed to represent the first parameter . then the rightmost N 
digits Of the converted value of the first parameter are returned. If 
both parameters to STRING4 are arithmetic expressions and the^ rounded 
value Of the second parameter is greater than the number of characters 
needed to represent the converted value of the first parameter, then 
leading zeros are Inserted into the resulting string. 
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Examples 



STRING(P,20) 
STRING(P0INTER(A),N-3) 
STRING(256, *) = 8"256" 
STRING(-335.25,8) = 8" -335.25" 
STRING( 4. 78(3-2,5) = 8". 0478" 
STRING( 555000,1) = 8"*" 
STRING(456.789,7) = 8"456.789" 
STRING4(123.45fc,8) = 4"00000123" 
STRING4(12345678,4) =4"5678" 

<tail function> 

~ TAIL — ( — <string expression>— , —<string character set>— -> 

>- ) . . -——„._.__. I 

See also 

<string character set>. . . . , . . . . . ... . . . . . ; ; .556 

The TAIL function returns a string whose value consists of the rightmost 
characters of the string expression beginning with the first character 
that is not a member of the string character set. If all characters in 
the string expression are members of the string character set, the null 
string is returned. If the first character of the string expression is 
not a member of the string character set. the entire string expression 
is returned. 



The string character set must be of the same character type as the 
string expression. For an explanation of the string character set, see 
the HEAD function in this section. 
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The TAIL function and the HEAD function are complementary functions. 
This means that for any string expression S and any string character set 
C, the following relation is always TRUE: 

S = HEAD(S,C) CAT TAIL(S,C) 

See the HEAD function in this section. 

Examples 



In the examples below, S is a string of length 9 that contains 
8"ABC/l-2+3". 



TAIL(S,NOT "-") = 8"-2+3" 
TAIL(DROP(S, 7), "+-")= 8"3" 

<talce function> 

-- TAKE -- ( --<string expression) — , — -<arithmetic expression) > 

>- ) — — — — ——————— — — i 



The TAKE function returns a string whose value is equal to the first 
<arithmetic expression) characters talcen from the value of the string 
expression. The value of the arithmetic expression is rounded to an 
integer, if necessary. An error occurs if the rounded value of the 
arithmetic expression is greater than the number of characters in the 
string expression or less than zero. If the rounded value of the 
arithmetic expression is zero, the result is the null string. If the 
rounded value of the arithmetic expression is equal to the length of the 
string expression, the result is the same as the value of the string 
expression. 



The TAKE function and the DROP function are complementary functions. 

This means that for any string expression S and any arithmetic 

expression A in the range <= A <= LENGTH(S), the following relation is 
always true: 

S = TAKE(S,A) CAT DROP(S,A) 

See the DROP function in this section. 
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In the examples below, string S has a length of 6 and contains 
8"ABCDEF". 



TAKE(S,2) = 8"AB" 
TAKE (S, 4) = 8"ABCD" 
TAKE(DROP(S,2),2) = 8"CD" 

<tan function> 



— TAN — ( — <arithmetic expression> — ) — 



The TAN function returns, as a real value, the tangent of an angle of 
<arithmetic expression> radians. 



<tanh function > 



— TANH ~ ( ~<arithmetic expression > — ) -- 



The TANK function returns, as a real value, the hyperbolic tangent of 
the specified arithmetic expression. 



<time function> 



— TIME — ( — <arithmetic expression > — ) — 



The TIME function makes various system time values available. The value 
of the arithmetic expression is rounded to an integer, if necessary, 
before being used. The results returned for different values of the 
integerized arithmetic expression are given in the following table. If 
the integerized value of the arithmetic expression is not one of the 
values listed in the table, the TIME function returns the value zero. 
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Parameter Result Returned 

TIME(O) returns the current date in BCL characters in the 
format 6" YYDDD", where YY is the year and DDD is the day of the 
year. . ■ 

1 TIME(l) returns the time of day, in sixtieths of a second, as 
an integer value. 

2 TIME(2) returns the elapsed processor time of the program, in 
sixtieths of a second, as an integer value. 

3 TIME( 3) returns the elapsed 1/0 time of the program, in 
sixtieths of a second, as ;an integer value. 

4 TIME(4) returns the value of a 6-bit clock that increments 60 
times per second. 

5 TIME(5) returns the month,: day, and year as six BCL characters, 
right-justified, in the format 6"O0MMDDYY". 

fc TIME( 6 X returns a unique number for the time and date (a 
timestamp) in the following form: 

& (JULIANDATE-7O0O0) [47:16] & (TIME(ll) DIV 16) [31:32] 

7 TIME(7) returns the current date and time in the following 
form: 

[47:12] Year (1900-1999) 

[35:06] Month (1-12) ^ 

[29:06] Day (1-31) 

[23:06] Hour (0-23) 

[17:06] Minute (0-59) 

[11:06] Second (0-59) 

[05:06] Day of the week 

(0 = Sunday, 1 - Monday, •»-, 6 = Saturday) 

o TIME(9) returns the current time in EBCDIC characters in the 
format 8"HHMMSS", where: HH is the hour. MM is the minute, and 
SS is the second. 

IC TIME(IO) returns the same value as TIME(O), except that the 
time is expressed in EBCDIC characters in the format 8"YYDDD . 

11 TIME( 11) returns the same value as TIME(l), except that the 
time is expressed in multiples of 2.4 microseconds. 

12 TIME( 12) returns the same value as TIME(2), except that the 
time is expressed in multiples of. 2.4 microseconds. 
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Result Returned 



13 



14 



16 
23 



24 



TIME( 13) returns the same value as TIME(3), except that the 
time is expressed in multiples of 2.4 microseconds. 

TIME(14) returns the time elapsed since the last Halt/Load in 
multiples of 2.4 microseconds. 

TIME(15) returns the current date in EBCDIC characters in the 
format 8"MMDDYY". 

TIME(16) returns the same value as TIME(6). 

TIME(23) returns the system identification information in the 
following format: 

[31:08] ASD System flag. 

- Non-ASD system 

1 - Non-ASD system 

2 - ASD system 
[23:16] System serial number. 
[07:08] Type of machine DIV 100 

(for example, 68 means B 6800). 

If the system type is not of the form 

B XXOO, this field contains zero. 

TIME(24) returns the system type as a real value containing six 
EBCDIC characters- The name is left- justified with blank fill. 
For example, on a B 5920 or B 5930 system. TIME(24) returns 
8"B5900 ". 



<translate function> 

TRANSLATE — ( — <string expression> — , — <translate table> -> 

>- ) _ _ 



See also 

<translate table) 



382 



The result of the TRANSLATE function is a string of the same length as 
the string expression with each character of the string expression 
translated according to the translate table. 



Expressions 
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The translate table used in the TRANSLATE function must not be composed 
of items of different character types. The translate table can be a 
translate table identifier declared in the program or one of the 
intrinsic translate tables. The use of a subscripted variable as a 
translate table is not allowed in the TRANSLATE function. 



Examples 



TRANSLATE ( S , HEXTOEBCDIC ) 
TRANSLATE ( TAKE ( S ,10 ) , MYTT ) 

<value function > 



— VALUE ( — <mnemonic file attribute value>-' — — ■ > 

|-<:arithmetic-valued file attribute name>-- — ■ 

|-<:Boolean-valued file attribute name> — •-— 

I -<pointer-valued file attribute name> — •- ■ 

I -xtranslate-^table-valued file attribute name>- 



>- 






See also 

<arithmetic-valued file attribute name> . . . 
<Boolean-valued file attribute !name> . . . . * 

<mnemonic file attribute value>; . . . . . . . 

<pointer-valued file attribute name>. . . . . 

<translate-table-valued file attribute name) . 



86 
86 
86 
86 
86 



If a mnemonic file attribute value is specified, the VALUE function 
returns the integer value that corresponds to that mnemonic file 
attribute value. If a file attribute name is specified, the VALUE 
function returns the attribute number that corresponds to that attribute 
name. For more information on file attribute names and mnemonic file 
attribute values, ref€?r to the "I/O Subsystem Reference Manual . " 
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Examples 



F . K I ND : = VALUE (DISK) 

F . INTMODE : = VALUE( EBCDIC ) 

< wait Statement > 



Depending on the forin used, the WAIT statement returns no value, a 
Boolean value, or an integer value. For more information, refer to 
"WAIT Statement." 



<waitandreset statement > 



The WAITANDRESET statement returns an integer value. For more 
information, refer to "WAITANDRESET Statement." 



< write statement > 



The WRITE statement returns a Boolean value. For more information, 
refer to "WRITE Statement." 
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COMPILING PROGRAMS 



This chapter presents information outside of the ALGOL language. This 
inforination is necessary to compile and run an ALGOL program. The 
chapter describes the files used by the ALGOL compiler when it compiles 
a program, the format of a source record, and compiler control options. 



7.1 FILES USED BY THE COMPILER 

When the ALGOL compiler compiles a proigram, it requires, at minimum, one 
input file that contains the source code to be compiled. If the compile 
is successful, the compiler produces , at minimum, one output file that 
contains executable object code. 

Through the use of compiler control options, the compiler can be 
directed to use additional input files and to produce additional output 
files. Among the optional input files that can be used are files 
containing source code that is to be merged or inserted into the 
required source code file, and files containing information needed to 
perform separate compilation and binding. Among the optional output 
files that can be produced are a priniter listing of the program, a 
cross-reference file, an updated source file, an error message file, and 
a file containing information needed for future separate compilation. 

Table 7-1 lists the logical input and output files used by the ALGOL 
compiler. Each file Is listed with values for the INTNAME, KIND, 
INTMODE, MAXRECSIZE, BLOCKSIZE, and FILETYPE attributes. Some or all of 
the attributes for these files can be changed, using compiler file 
equation, when the compiler is initiated. (For more information, refer 
to the "I/O Subsystem Reference Manual" and the "Work Flow Language 
(WFL) Reference Manual" for detailed information about file attributes 
and compiler file equation, respectively.) 
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Table 7-1. Compiler Files 



Compiler Input Files 



Description 


INTNM4E 


Inltlatlcn 


KIND 


INIM3DE 


MAXKBCSIZE 


BIOCKSIZE 


Jr'lLKlYPJ!: 


FKHV^RH INPUT FTT.T? 


CARD 


WFL 


TUE^ER 


EBCDIC 


Taken ft>c«m 
physical fUe 


Taken from 
physical file 


8 


CAKDE 


DISK 


OPTIONAL SBCXM)lftRy 
INPUT ITliK 


TAPE 


WFL and 


DISK 


EBCDIC 


Taken from 
physical file 


Taken from 
physical file 


8 


OPTIQNAL SOURCE Fn.T?? 
INEUT BY $ INCLUDE 
COMPILER CONTROL 
OPTIONS 


CINCLUDEd 
files) 


WFL and 

CANDE 


DISK 


EBCDIC 


Taken from 
physical fUe 


Taken from 
physical file 


8 


OPTIONAL OBJECT FUE 
INPUT 


HD6T 


WFLani 
CANDE 


DISK 


SINGLE 


30 vgords 


270 words 


8 


OPTIONAL INFO FTT.E 


INFO 


WFLani 
CANDE 


DISK 


SINGLE 


T^en from 
physical file 


laifxin from 
physical file 






Compiler Output Files 



OPTIONAL 

pRocay^ • 

EXECUTION 



OBJECT CODE FTT.E 


CODE 


WFL ard 

CAKDE 


DISK 


SINGLE 


SO VKsrds 


2V0 words 


— 


OPTIONAL UPDATED 
SVMBOT.TC Fn.E 


NE^iflAPE 


WFL and 
CANDE 


DISK 


EBCDIC 


15 wards 


420 wards 


— 


OPTIONAL 

LINE PRINTER LISTINa 


LINE 


WFL and 
CANDE 


PRINTER 


EBCDIC 


22 vcards 


22 wards 


— 


OPTIONAL 

ERROR WSSSf^SE FILE 


ERRQRFir.T? 


WFL 


PRINTER 


EBCDIC 


12 words 


12 wards 




»IMD£ 


]{£MOIE 


OPTIONAL 

CROSS REFERENCE FILE 


XREFFn.E 


WFLani 
CmDE 


DISK 


EBCDIC 


610 words 


510 wcrds 





OPTIONAL INFO FTT.E 


INFO 


WFLani 
CMiDE 


DISK 


SINGLE 


256 wards 


2560 words 
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INPUT FILES 



The input files used by the compiler consist of the following: 

- CARD, which is the required source code file 

- t'ape, which is a source code file that can be merged with CARD 

- INCLUDE files, which are source code files that can be inserted 
into CARD or TAPE 

- HOST, which contains information used for separate compilation 
and binding 

- INFO, which contains information used for separate compilation 



The EXTMODE attribute (the character type of the physical file) of these 
input files can be EBCDIC, ASCII, or BCL. The MAXRECSIZE attribute of 
these input files must be large enough to accommodate at least 72 
characters. Because the values of the MAXRECSIZE and BLOCKSIZE 
attributes for these files are taken from the physical file (when 
FILETYPE = 8), these two attributes do not require explicit assignment. 



CARD File 



The CARD file supplies the primary source input to the compiler and must 
be present for each compilation. If the compiler is initiated from the 
Work Flow Language (WFL) and compiler file equation is not applied to 
the CARD file, the file is assumed to be a card reader file. If the 
compiler is initiated through CANDE and compiler file equation is not 
applied to the CARD file, the file is assumed to be a disk file. 



TAPE File 



The TAPE, file supplies secondary source input to the compiler. Its 
presence is optional. If compiler file equation is not applied to the 
TAPE file, the file is assumed to be a disk file regardless of whether 
the compiler is initiated from WFL or CANDE. 



When this file is present and the MERGE option is TRUE, records from the 
TAPE file are merged with those of the CARD file on the basis of 
sequence numbers. If a record from the CARD file and a record from the 
TAPE file have the same sequence number, the record from the CARD file 
is compiled and the TAPE record is ignored. For more information on the 
MERGE option, see "<merge option>" in this chapter. 
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INCLUDE Files 



INCLUDE files provide source Input to the compiler In addition to that 
supplied by the CARD and TAPE files. An INCLUDE file is used only if an 
INCLUDE compiler control option appears In the source input being 
compiled. For more information on the INCLUDE option, see "<include 
optlon>" in this chapter. 



HOST File 



The HOST file provides the compiler with Information that allows it to 
separately compile and bind to a host program only procedures that are 
being changed. This process is called a "sepcomp" -and the HOST file is 
used if the SEPCOMP compiler control option is TRUE. The HOST file is a 
special object code file, created by a previous compile when the 
MAKEHOST compiler control option was TRUE. The HOST file contains 
information about the outer block, environment of the program and the 
environments of selected procedures. For more Information on the 
SEPCOMP and MAKEHOST options, see "<sepcomp option)" and "<malcehost 
optlon>," respectively, in this chapter. 



INFO File 



The INFO file contains the contents of variables and tables used in the 
compiler, saved from a previous compile. This file is used for separate 
compilation of procedures. It is created by the DUMPINFO compiler 
control option and is used as an input file by the LOADINFO compiler 
control option. For more information on the DUMPINFO and LOADINFO 
options, see "<dumpinfo option)" and "<loadinfo option), " respectively, 
in this chapter. 



See also 

<dumpinfo option) 611 

<lnclude option) 615 

<loadinfo option) 623 

<mak.ehost option) 625 

<merge option) 628 

<sepcomp option) 635 
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OUTPUT FILES 



The output files produced by the compiler consist of the following: 

- CODE, which is the object code file 

- NEWTAPE, which is the updated source code file 

- LINE, which is the printer listing of the program 

- ERRORFILE, Which is the error message file 

- XREFFILE, which contains cross-reference information 

INFO, which contains information used for separate compilation 

CODE File 



The CODE file is produced unconditionally and contains the executable 
object code produced by the compiler. This file is either stored 
permanently, executed and then discarded, or discarded, depending on the 
specifications in the WFL or CANDE "COMPILE" statement that initiated 
the compiler, and on whether or not syntax errors occurred during the 
compilation. For more information on the WFL and CANDE "COMPILE" 
statements, refer to the "Work Flow Language (WFL) Reference Manual" and 
the "CANDE Reference Manual." 



IfEWTAPE File 



The NEWTAPE file is produced only if the NEW compiler control option is 
TRUE. The NEWTAPE file is an updated source file that consists of the 
source input from the CARD file, the TAPE file, and (if the INCLNEW 
compiler control option is TRUE) the included files that was actually 
compiled. If compiler file equation is not applied to the NEWTAPE file, 
it is a disk file. For more information on the NEW and INCLNEW options, 
see "<new option>" and "<inclnew option>," respectively, in this 
chapter. 



LINE File 



The LINE file is produced if either of the compiler control options LIST 
or TIME is TRUE. If compiler file equation is not applied to the LINE 
file, it is a printer file. 
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The contents and format of the LINE file depend on 
following compiler control options: 



the values of the 



CODE 

FORMAT 

LISTDELETED 

LISTINCL 

LISTOMITTED 

LISTP 



PAGE 

SEGS 

SINGLE 

STACK 

TIME 



The LINE file always contains at least the following information: 

1. The title of the source file CARD used as input to the compiler 

2. Code segmentation information 

3. Error messages and error count, if syntax errors occur 

4. Summary information about the compile, such as the number of 
lines read and the size of the object code file 



For more information about the compiler control options that affect the 
LINE file, see "Option Descriptions" in this chapter. 



ERRORFILE File 



The ERRORFILE file is produced only if the ERRLIST compiler control 
option is TRUE. If compiler file equation is not applied to the 
ERRORFILE file, it is a printer file if the compile was initiated 
through WFL and a remote file if the compile was initiated through 
CANDE. If no syntax errors occur during compilation, no ERRORFILE file 
is produced, regardless of the value of the ERRLIST option. For more 
information on the ERRLIST option, see "<errlist option>" in this 
chapter . 



For every syntax error that occurs during compilation, two records are 
written to the ERRORFILE file. The first record is a copy of the source 
record that contains the error. The second record contains the sequence 
number of that source record (if the source record was sequenced) and 
the error message. 
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XREFFILE File 



When either of the compiler control option 
the compiler saves raw cross-reference inf 
The contents of the file are affected by t 
XDECS and XREFS . Before this informa 
•SYSTEM/INTERACTIVEXREF or the Editor, 
SYSTEM/XREFANALYZER. The XREFFILE fl 
"XREF/< code file name>", where <GOde file 
object code file being produced. For 
cross-reference options, see "Option Descr 



s XREF or XREFFILES is TRUE, 
ormation in the XREFFILE file, 
he compiler control options 
tion can be printed or read by 
it must be analyzed by 
le is given the file name 
name> is the file name of the 
more information about the 
iptions" in this chapter. 



INFO File 



The INFO file contains the contents of variables and tables used in the 
compiler. It is intended for use in separate compilations of 
procedures. This file is created by the DUMPINFO compiler control 
option, and it is used as an input file by the LOADINFO compiler control 
option. 



See also 

<errlist option> 612 

<inclnew option> 614 

<new option> . 629 

Option Descriptions 603 
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1^ SOURCE R BCQR P FORMAT 



The records of a source code file read by the ALGOL compiler can be any 
size greater than or equal to 72 characters. 



Assume that the character positions (called columns) of a source record 
are numbered from 1 to n, where n is the size of the record in 
characters. The compiler divides each source record as follows: 

1. The data in columns 1 through 72 is assumed to be ALGOL source 
language as defined in this manual. Any characters that appear 
beyond column 72 are not compiled as source language 
constructs. 

2. Characters in columns 73 through 80 of a record are treated as 
a sequence number, which is optional. 

3. Any information beyond column 80 is ignored. 



The column in which an ALGOL construct begins is not significant, unless 
the source record is a compiler control record or the construct 
continues beyond column 72. (For more information on compiler control 
records, refer to "Compiler Control Records" in this chapter .) The data 
in columns 1 through 72 is treated as a continuous stream from record to 
record. In other words, no delimiters are implied at the end of a 
record, and string literals, identifiers, and all other valid ALGOL 
constructs can be continued from column 72 of one record to column 1 of 
the succeeding record. 
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1^ COMPILER CONTROL OPTIONS 

Compiler control options provide the programmer with the means to 
control many aspects of the compilation of an ALGOL program. These 
options can instruct the compiler to use optional input files or to 
produce optional output files. In addition to other things, the options 
can do all of the following: 

- Affect the contents of the printer listing 

- Designate the target computer for which code is to be produced 

- Set the default character type 

- Cause the compiler to perform separate compilation 
Invoke the Binder 

Invoke debugging features 
Exclude source records 

- Set a limit on the number of syntax errors the program can get 

- Resequence source records 

- Check that sequence numbers are in order 
Control code file segmentation 

- Flag BCL constructs 
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COMPILER CONTROL RECORDS 



compiler control options are included in an ALGOL program by using 
special source records called compiler control records. 



Syntaix 



< compiler control record > 



— $ 



l<- 



■■ — <option phrase> — 



-<dumpinfo option>- 
-<loadinfo option>- 
-<include option>~ 



<binder command >■ 
>-<escape remarfc> 



<option phrase: 



l<- 



- SET 

- POP 

- RESET - 



-<Boolean option > I 

I 

-<immediate option)-! 

I 
-<value option> 1 



- SET <Boolean option>- 



- = — <option expression)- 
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<Boolean option > 

A <Boolean option> can be any of the following: 



<$ option> 
<ASCII option> 
outobind option > 
<BCL option> 
<brealcpoint option > 
<B7700 option> 
< check. option> 
<code option> 
<errlist option > 
< format option) 
<inclnew option> 
<inclseq option) 
<installation option) 
<intrinsics option) 
<library option) 
<lineinfo option) 
<list option) 
<listdeleted option) 
<listincl option) 
<listomitted option) 
<listp option) 
<mak.ehost option) 
<MCP option) 
< merge option) 
<new option) 
<newseqerr option) 



<noBCL option) 
<nobindinfo option) 
<nostacfcarrays option) 
<noxreflist option) 
<oldresize option) 
<omit option) 
<optimize option) 
<segs option) 
<sepcorap option) 
<seq option) 
<seqerr option) 
<single option) 
<stack option) 
<statistics option) 
<TADS option) 
<time option) 
<user option) 
<void option) 
<voidt option) 
<warnsupr option) 
<writeafter option) 
<xdeGS option) 
<xref option) 
<xreffiles option) 
<xref s option) 



<immediate option) 

<beginsegment option) 

I I 

|-<brealchost option) ! 

I ! 

I -<endsegment option) I 

|-<go to option) ^i 

i i 

|-<page option) I 
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< value opt ion > 

< level option) 

-<limit option> 

-<segdescabove option > 

-< sequence base option > 

-<sequence increment option>- 

-<sharing option> 

-<target option> 

i 

|-<version option> 



<option expression > 

<— AND — 

<- OR — 

<- IMP - 

<- EQV - 

<option primary> 



<option primary) 

<user option>- 

I i I 

!- NOT -I I- TRUE 

i I i 

I- ' i I- FALSE 



- ( — < opt ion expression) — ) - 
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<binder command> 

<bind optiori> •-- i 

I 
-<binder opt ion > 

-<external OF>tion> 

-<hcst option> — • — ■ 

-<initialize option>- 

~<purge option> 

~<stop option> 

-<use option) 



Semantics 



Compiler control records are submitted to the ALGOL compiler as part of 
the source input and are distinguished from other constructs by the 
dollar sign ($) that must begin every compiler control record. 



In a compiler control record, the column in which the initial $ occurs 
is significant. Compiler control records with the initial $ in column 1 
affect only the current compilation and are not saved in the NEWTAPE 
file, if any. Compiler control records with the initial $ in column 2 
are considered permanent compiler control records and are saved in the 
NEWTAPE file, if any. Compiler control records with the initial $ in 
columns 3 through 72, inclusive, are considered both permanent and 
conditional, in that they are saved in the NEWTAPE file, if any, and 
they are ignored when the OMIT option is TRUE. 



A compiler control record can contain tne following; 

1. Boolean options 

2. Value options 

3. Immediate options 

4. Special options 

5. Binder commands 
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A Boolean option is one that is either enabled (TRUE) or disabled 
(FALSE). When enabled, it causes the compiler to apply an associated 
function to all subsequent processing until the option is disabled. 



A value option causes the compiler to store a value associated with a 
given function. 



An immediate option causes the compiler to perform immediately a 
function that is not applied to subsequent processing. 



The special options (the DUMPINFO option, the LOADINFO option, and the 
INCLUDE option), like the immediate options, cause the compiler to 
perform immediately a function that is not applied to subsequent 
processing. However, they are not grouped with the immediate options 
because of special syntactic requirements. 



Binder commands are passed directly to the Binder program. For more 
information on Binder statements and control options, refer to the 
"Binder Reference Manual." 



The keywords SET, RESET, and POP affect the value of Boolean options. 
Each Boolean option has an associated "stack" in which the current value 
and up to 46 previous values of the option are saved. The management of 
this stack of values is described below: 

1. If the first keyword to the left of a Boolean option in a 
compiler control record is SET or RESET, the current value of 
the option is pushed onto the stack and the option is assigned 
a value of TRUE or FALSE, respectively. In other words, the 
option is assigned a new value, and the previous value is saved 
in the stack. 

2. If the first keyword to the left of a Boolean option in a 
compiler control record is POP, the current value of the option 
is discarded and the previous value is removed from the top of 
the stack and assigned to the option. 

3. If a Boolean option is not preceded in a compiler control 
record by any keyword, then the following actions occur: 

a. All resettable standard Boolean options are assigned a 
value of FALSE and all previous values in their stacks are 
discarded. 

b. The Boolean options appearing in the compiler control 
record with no preceding keyword are assigned a value of 
TRUE. 
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The following is a list of the resettable standard Boolean options that 
are affected when a Boolean option appears in a compiler control record 
without a preceding keyword: 



ASCII 

AUTOBIND (if SEPCOMP iS FALSE) 

BCL 

CHECK 

CODE 

FORMAT 

INCLNEW 

INCLSEQ 

INSTALLATION 

INTRINSICS 

LIST 

LISTDELETED 

LISTINCL 

LISTP 

MAKEHOST (if the first syntactic 

item has not been seen) 
NEW 
NEWSEQERR 



NOXREFLIST 

OMIT 

OPTIMIZE 

SEGS 

SEQ 

SEQERR 

STACK 

STATISTICS 

TIME 

VOID 

VOIDT 

WARN SU PR 

WRITEAFTER 

XREF 

XREFFILES 

XREFS 

$ 



A compiler control record that consists of only an initial $ (a $ 
followed by all blanks) has no effect unless it is in the CARD file, the 
MERGE option is TRUE, and a record is present in the secondary input 
file TAPE that has the same sequence number as this compiler control 
record. When these three conditions are met, then that TAPE record is 
ignored. 



In an <option expression), the Boolean operators have the same 
precedence as they do in Boolean expressions; that is, NOT and " are 
equivalent and have the highest precedence, followed by AND, OR, IMF. 
and EQV, in that order. The <option primary) "*" represents the current 
value of the Boolean option whose value is being assigned. For example, 
the compiler control record 

$ SET OMIT = *• OR DEBUGCODE 

causes records from both the CARD and TAPE files to be ignored if either 
the OMIT option is TRUE or the user option DEBUGCODE is TRUE. 
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Examples 



$ SET LIST MERGE NEW RESET SINGLE 



This compiler control record assigns a value of TRUE to the LIST 
option, MERGE option, and NEW option, and assigns a value of FALSE 
to the SINGLE option. The previous value of each of these options 
is saved in the corresponding stack. 



$ PAGE 



This compiler control record invok.es the immediate option PAGE. 
causing the compiler to skip the printer listing to the top of the 
next page (if the LIST option is TRUE). Because the PAGE option is 
not a Boolean option, the action described above for Boolean options 
not preceded by a keyword does not occur. 



$ SET LISTP 135000 POP LIST 

This compiler control record assigns a value of TRUE to the LISTP 
option, assigns the value 135000 to the sequence base option, and 
returns the LIST option to its most recent previous value. 



$ LISTP POP MYOPTION 

This compiler control record assigns FALSE to all resettable 
standard Boolean options and discards all previous values in their 
stacks, assigns the value TRUE to the LISTP option, and returns the 
USER option MYOPTION to its most recent previous value. The stack 
for MYOPTION is unaffected by the purge of the stacks for the 
standard resettable Boolean options, because it is not a standard 
option. 
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Q PT TPy PEgCRJPTTOys 



The rest of this chapter describes the individual compiler control 
options. 



< ASCI I opt ion > 



-ASCII — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the ASCII option sets the default character type to ASCII. 
For more information, refer to "Default Character Type" in the appendix 
"Data Representation." 



If the BCL option is TRUE and the ASCII option is assigned the value 
TRUE, a syntax error Is given. 



See also 

Default Character Type. ..... . 817 



<autobind opt ion > 



~ AUTOBIND ~ 



(Type: Boolean, Default value: FALSE) 



If TRUE, the AUTOBIND option Causes the processes of compilation and 
program binding to be combined into one job. During compilation, the 
compiler produces a set of instructions to be passed to the Binder 
program. In most cases, these Binder instructions are sufficient. If 
additional Binder instructions are required, the ALGOL <binder command> 
syntax can be used. 
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The AUTOBIND option can be assigned a value at any time during 
compilation. However, for the following reasons, it shbuld be assigned 
a value only once, at the beginning of compilation: 

1. The value of the AUTOBIND option is significant only at the end 
of compilation. For example, if four procedures are being 
compiled, the first three with the AUTOBIND option FALSE and 
the last with the AUTOBIND option TRUE, the Binder attempts to 
bind all four procedures to the specified host. 

2. When the AUTOBIND option is FALSE, compile-and-go on a separate 
procedure is not executed. If the AUTOBIND option is TRUE 
throughout compilation, execution of the resulting program 
takes place after binding. 



In ALGOL, an outer block, or a separate procedure compiled at lexical 
(lex) level two can serve as a "host" for binding. Separate ALGOL 
procedures compiled at lex level three (the default level) or higher can 
be bound into a host. Any number of separate procedures, but only one 
host, can be compiled in one job. The host must be the last program 
unit compiled. If an appropriate host file is compiled with the 
AUTOBIND option equal to TRUE, it is assumed to be the host for binding. 
(This assumption cannot be overridden by file equation or by use of the 
HOST option.) If no eligible host is being compiled, a host must be 
specified, either by file equation of the compiler file HOST or by use 
of the HOST option. 



The object code file of any procedure compiled at lex level three or 

higher with the AUTOBIND option equal to TRUE is marked as 

nonexecutable. To be executed, the procedure must be bound into a host 

file by the Binder program or invoiced by a PROCESS or CALL statement. 



Object code files of any procedures compiled at lex level three or 
higher are purged after being bound into a host by the AUTOBIND option. 
To be retained, such a code file must be referenced specifically in 
either a BIND option or an EXTERNAL option. 



When the batch facility is used, the AUTOBIND option cannot be assigned 
a vr.lue. If the TADS option is TRUE when the AUTOBIND option is 
assigned the value TRUE, then the AUTOBIND option is left equal to FALSE 
and a warning message is given. 
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<BCL opt ion > 



~ BCL — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the BCL option sets the default character type to BCL. For 
more information, refer to "Default Character Type" in the appendix 
"Data Representation,." 



If the ASCII option is TRUE when the BCL option is assigned the value 
TRUE, a syntax error is given. 



See also 

Default Character Type. ..... 817 



NOTE 

The BCL data type is not supported on all 
A Series and B 5000/B 6000/B 7000 Series 
systems. The appearance of a BCL 
construct that may cause the creation of 
a BCL descriptor, such as the BCL option, 
will cause the program to get a 
compile-time warning message. 



<beginsegment opt ion > 



- BEGINSEGMENT — 



(Type: immediate) 



The BEGINSEGMENT option and the ENDSEGMENT option allow the programmer 
to control code file segmentation. Procedures encountered between a 
BEGINSEGMENT option and an ENDSEGMENT option are placed in the same code 
segment, which is called a "user segment" because it is user-controlled 
instead of compiler-controlled. 
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The BEGINSEGMENT option must appear before the declaration of the first 
procedure to be included in the user segment. The ENDSEGMENT option 
must appear after the last source record of the last procedure to be 
included in the user segment. 



A procedure cannot be split across user segments. The first procedure 
in the user segment must be one for which the compiler would normally 
generate a segment; that is, it must have local declarations. External 
procedures cannot be declared in a user segment. 



Declarations of global items other than procedures within a user segment 
can result in those items not being initialized. This could cause the 
program to get a fault at run time. Declarations of global items other 
than procedures should be placed outside user segments. 



User segments can be nested; that is, a BEGINSEGMENT option can appear 
in a user segment. In this case, an ENDSEGMENT option applies to the 
user segment currently being compiled. 



If a BEGINSEGMENT option appears before the beginning of a separately 
compiled procedure, an ENDSEGMENT option is assumed at the end of the 
procedure, even if none appears. The driver procedure created for 
procedures compiled at lexical level three is always in a different code 
segment. 



The segment information in the printer listing is modified for user 
segments. User segments are numbered consecutively in a program, 
beginning with 1; that is, the first user segment is USERSEGMENTl , the 
second user segment is USERSEGMENT2 , and so forth. The code segment 
number of each user segment is printed at its beginning: the length of 
each user segment is printed at its end. Procedures or blocks whose 
segmentation is overridden by user segmentation are printed out as being 
"in" that user segment. 



Forward procedure declarations are not affected by user segmentation 



If more than one BEGINSEGMENT option appears before a procedure, the 
warning message "EXTRA BEGINSEGMENT IGNORED" is printed. If an 
ENDSEGMENT option appears and there has been no BEGINSEGMENT option, the 
warning message "EXTRA ENDSEGMENT IGNORED" is printed. 



The BEGINSEGMENT option and ENDSEGMENT option allow the programmer to 
reduce presence-bit overhead by grouping frequently called procedures 
and infrequently called procedures in separate segments. 



607 
Compiling Programs 



:bind opt ion > 



-- BIND — <text>— 



See also 

<text>. 



61 



(Type: Binder command) 

During autobinding, the BIND option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder BIND statement and are described in the 
"Binder Reference Manual." 

When the batch facility is used, the BIND option cannot be used. 



< binder opt ion > 



BINDER — <text>- 



See also 

<text>. . • • 61 



(Type: Binder command) 

During autobinding, the <text> in the BINDER option is passed directly 
to the Binder program for analysis. The format and function of <text> 
are the same as those of the Binder control options and are described in 
the "Binder Reference Manual." 
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— BREAKHOST 



- ( — <input file> — ) 



<input file> 

- — <file identif ier >-- 



See also 

<file identlfier> 
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(Type: immediate) 



To create the necessary environment for interactive debugging with the 
breakpoint intrinsic, the BREAKHOST option must appear in the outer 
block of any program that uses the BREAKPOINT option or the BREAKPOINT 
statement. This option must appear after the first "BEGIN" of a program 
but before the first statement of the outer block. 



A part of the environment created by the BREAKHOST option is a remote 
file. If a program to be debugged has a remote input file, the name of 
that file must be specified as the < input file> to allow the breakpoint 
intrinsic to use that remote file, because only one remote input file 
can be open for each station. 



Another part of the environment created when the BREAKHOST option is 
TRUE is a 32 , 768-element real array. If a program that uses the 
BREAKHOST option is run with its task attribute OPTION equal to LONG, 
the run-time error 

DIMENSION SIZE ERROR 1=32768 

is given if the overlay row size of the system cannot accommodate an 
array of that size. 



The BREAKHOST option should not be used in a library program, 



For more information about the breakpoint feature, see "BREAKPOINT 
Statement" and the description of the BREAKPOINT option is this section. 
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NOTE 

The BREAKHOST option, the BREAKPOINT 
option, and the BREAKPOINT statement are 
being deimplemented on the Mark 3.7 
release. For a debugging feature, refer 
to the TADS option in this section. 



<breakpoint option > 



— BREAKPOINT — 



(Type: Boolean, Default value: FALSE:) 

While the BREAKPOINT option is TRUE, the code emitted for each ALGOL 
statement is followed by a call on the breakpoint intrinsic. The 
execution of the program stops (breaks^ after each statement in this 
range (and at any explicit call of the breakpoint intrinsic) to allow 
debugging through the use of breakpoint commands. 

For more information about the breaik.point feature, see "BREAKPOINT 
Statement" and the description of the BREAKHOST option in this section. 



NOTE 

The BREAKHOST option, the BREAKPOINT 
option, and the BREAKPOINT statement are 
being deimplemented on the Mark 3.7 
release. For a debugging feature, refer 
to the TADS option. 



<B7700 option > 



— B770C — 



(Type: Boolean, Default value: TRUE) 



When TRUE, the B7700 option causes optimized code to be generated for 
B 7000 Series systems. The B7700 option cannot be assigned a value 



the 

if the TARGET option has been used or 

program is run Is an A Series system. 



if the computer on which the 
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NOTE 

The B7700 option will be de implemented on 
the Mark 3.7 release. For information on 
code optimization for a particular 
computer, refer to the TARGET option in 
this section. 



< check, opt ion > 



— CHECK — 



(Type: Boolean, Default value: FALSE) 

When TRUE, the CHECK option causes an error to be given if the sequence 
number on a record of the TAPE or NEWTAPE file is not strictly greater 
than the sequence number of the preceding record. If a sequence error 
occurs in the TAPE file, the word "SEQERR" followed by the sequence 
number of the previous source record is printed at the right side of the 
source record on the printer listing. If a sequence error occurs in the 
NEWTAPE file, the message "NEWTAPE SEQ ERROR" followed by the sequence 
number of the previous source record is printed on the listing, and the 
message "NEWTAPE SEQ ERR" is displayed on the Operator Display Terminal 
(ODT). In the ERRORFILE, the sequence number of the record that caused 
the sequence error and the sequence number of the previous source record 
appear on the line following the source record. 



If the NEW option is FALSE and resequencing is occurring, the old 
sequence number is the sequence number that is checked. 



<code opt ion > 



— CODE — 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CODE option are TRUE, the printer 
listing includes the compiler-generated object code. If the LIST option 
is TRUE but the CODE option is FALSE, the printer listing does not 
include the object code. The value of the CODE option is ignored if the 
LIST option is FALSE. 
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<duinpinfo option > 



— DUMPINFO — — — -I 

I I . 

|-<file specif icationi>- 1 

<file specif ication> 

■ < t i t le > — ^- — I 

I I 

|-<lnternal file name>-| 

I I 

|-<name and title> — I 

<title> 

A quoted string containing a file title. 

<internal file name> 
. —< identifier > — I 

<name and tltle> 

— <internal file name> — = — <titlie> — I 

(Type: special) 

The DUMPINFO option is described with the LOADINFO option in this 

section. 



ondsegment option> 



- ENDSEGMENT — 



(Type: immediate) 



The ENDSEGMENT option is described with the BEGINSEGMENT option in this 
section. 
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<errlist option> 



— ERRLIST — 



(Type: Boolean, Default value; TRUE for CANDE-originated compiles, 
FALSE otherwise) 



When TRUE, the ERRLIST option causes syntax error information to be 
written to the ERRORFILE file. When a syntax error is detected in the 
source input, the source record that contains the error, an error 
message, and the syntactical item where the error occurred are written 
on two lines in the ERRORFILE file. This option is provided primarily 
for use when the compiler is invoked at a terminal by CANDE, but it can 
be used regardless of the manner in which the compiler is invoiced. When 
the compiler is invoked from CANDE, the default value of the ERRLIST 
option is TRUE, and the ERRORFILE file is automatically equated to the 
remote device from which the compiler was invoked. 



< external optlon> 



— EXTERNAL — <text> — 



See also 

<text> 61 



(Type: Binder command) 



During autobinding, the EXTERNAL option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder EXTERNAL statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the EXTERNAL option cannot be used, 
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(format opt ion > 



— FORMAT 



(Type: Boolean, Default value: FALSE} 

If both the LIST option and the FORMAT option are TRUE, then to aid 
readability of the printer listing, several blank: lines are inserted 
after each procedure. If the LIST option is TRUE but the FORMAT option 
is FALSE, no blank lines are inserted after procedures. If the LIST 
option is FALSE, the value of the FORMAT option is ignored. 



<go to option > 

— GO -< sequence number >■ 

i . I 
I - TO - i 

< sequence number > 



/8\-<digit> I 

(Type: immediate) 

The GO TO option is used to reposition the secondary source input file 
TAPE. This option is intended for use with disk files and does not work 
on tape files. 

The < sequence number:- construct specifies a sequence number appearing on 
a record in the TAPE file. The GO TO option causes the TAPE file to be 
repositioned so that the next record from this file used by the compiler 
is the first record with a sequence number greater than or equal to the 
specified sequence number. The TAPE file must be properly sequenced in 
ascending order; that is, the sequence number on each record in the file 
must be strictly greater than the sequence number on the preceding 
record. The specified sequence number can be greater than or less than 
the sequence number of the record on which the option appears. 
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This option cannot appear within a DEFINE declaration or in included 
source input, and cannot be used when the batch facility is used. 



<host option > 

— HOST — <text > — I 

See also 

<text> 61 

(Type: Binder command) 



During autobinding, the HOST option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder HOST statement and are described in the 
"Binder Reference Manual." 



When the batch facility if used, the HOST option cannot be used 



<inclnew option > 



INCLNEW — 



(Type: Boolean, Default value: FALSE) 



If both the NEW option and the INCLNEW option are TRUE, included source 
input is written to the NEWTAPE file. If the NEW option is TRUE but the 
INCLNEW option is FALSE, included source input is not written to the 
NEWTAPE file. If the NEW option is FALSE, the value of the INCLNEW 
option is ignored. 



When the batch facility is used, the INCLNEW option cannot be assigned a 
value. 
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<inclseq option> 

— INCLSEQ —I 

(Type: Boolean, Default value: FALSE) 

If both the SEQ option and the INCLSEQ option are TRUE, included source 
input is resequenced. If the SEQ option is TRUE but the INCLSEQ option 
is FALSE, included source input is not resequenced. If the SEQ option 
is FALSE, the value of the INCLSEQ option is ignored. 

When the batch facility is used, the INCLSEQ option cannot be assigned a 
value. 

< include option > 

— INCLUDE ■ ~ > 

I II I 

|-<file specif ication>- I |-<start specif ication>- I 

>__.______-__ — — I 

! I 

|-<stop specif ication>- I 

<start specif ication> 



|-<sequence number >- I 

<stop specifications 

— _ — < sequence number >■ 



See also 

<file specification) ^1^ 

<sequence number> ^1-^ 



(Type: special) 
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The INCLUDE option causes the compiler to accept source language input 
from files other than the CARD and TAPE files. The included records are 
compiled in place of the record on which the INCLUDE option appears. 
The included records can themselves contain INCLUDE options; in this 
way, included source input can be nested up to five levels deep. 



The <file specif ication> construct specifies the file from which source 
input is to be included. If the <title> form is used, the quoted string 
specifies the TITLE attribute of the file. The < internal file name> 
form provides an internal file name that can be associated with an 
actual file through file equation. The <hame and title> form provides 
both an internal file name available for file equation and a title to be 
used if the internal file name is not file-equated. 



If the <file specification) construct is not used, the same file as that 
specified in the previous INCLUDE option at the same level of nesting is 
used. Therefore, the first INCLUDE option at any of the five possible 
levels of nesting must contain the <file specification) construct. 



The <start specification) construct specifies the record of the included 
file at which inclusion is to start. If the <sequence number) form is 
specified, inclusion begins with the first record with a sequence number 
greater than or equal to the specified sequence number. If the 
asterisk (*) form of <start specification) is used, inclusion begins at 
the point where it left off the last time inclusion took place from this 
file at the same level of nesting. If the <start specification) 
construct is not used, inclusion begins with the first record of the 
file. 



The <stop specification) construct specifies the record after which 
inclusion is to stop. If the <stop specification) construct is not 
used, inclusion ends after the last record of the file. 



Source files suitable for use by the INCLUDE option can be produced by 
the compiler by using the NEW option. 



Files declared globally in Work Flow Language (WFL) jobs should not be 
used as INCLUDE files. 



The INCLUDE option must be the last option appearing on a compiler 
control record, and it cannot be used when the programmer is using the 
batch facility. 
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Examples 



$ INCLUDE FILES 00001000 - 09000000 

This example instructs the compiler to accept as input all records 
from the file indicated by the internal name FILES, with a sequence 
number greater than or equal to 00001000 and less than or equal to 
09000000. 



$ INCLUDE * 

This example instructs the compiler to accept as input a portion of 
the file accessed by the last INCLUDE option at this level of 
nesting. The records to be included are all records that follow the 
last record included by that preceding INCLUDE option. If, for 
example, the preceding INCLUDE option was the one in the first 
example above, the file that is accessed is FILES, and the records 
that are included are all the records with a sequence number greater 
than 09000000. 



$ INCLUDE "SOURCE/XYZ." - 900 

This example instructs the compiler to accept as input a portion of 
the file with the title "SOURCE/XYZ". The Included records are all 
records of the file with a sequence number less than or equal to 
00000900. 



$ INCLUDE INCL = " SYMBOL/ALGOL/ INCLUDEl . " 

This example instructs the compiler to accept as input all records 
of either the file to which the internal name "INCL" was 
file-equated or, if the INCL file was not file-equated, the file 
"SYMBOL/ALGOL/ INCLUDEl". 



< initialize opt ion > 



INITIALIZE — <text>-- 



See also 
<text > 



61 
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(Type: Binder command) 



During autobinding, the INITIALIZE option is passed directly to the 
Binder program for analysis. The format and function of this option are 
the same as those of the Binder INITIALIZE statement and are described 
in the "Binder Reference Manual." 



When the batch facility is used, the INITIALIZE option cannot be used. 



< installation opt ion > 



— INSTALLATION 

I 

|-<installation number list>- 

<installation number list> 



<installation number > | 

I I 

|- - — <installation number >- I 

<installation number> 

— <unsigned integer > — | 

(Type: Boolean, Default value: FALSE) 

When TRUE, the INSTALLATION option causes the compiler to recognize one 
or more groups of installation intrinsics so that they can be referenced 
in an ALGOL program. This option must be assigned a value before the 
first syntactic item in a program. Assigning a value to this option at 
any other time has no effect. 

An installation number must be an unsigned integer between 1 and 2047, 
inclusive. Each installation number in an installation number list must 
be strictly greater than the preceding installation number in that list. 
Installation numbers larger than 2047 are treated as if they were equal 
to 2047. 
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An INSTALLATION option with no installation number list is equivalent to 
one with an installation number list of 100 through 2047. 

When the batch facility is used, the INSTALLATION option cannot be 
assigned a value. 



<intrinsics option> 

— INTRINSICS — I 

(Type: Boolean, Default value: FALSE) 

When TRUE, the INTRINSICS option causes separately compiled procedures 
to be compiled at lexical (lex) level two and allows a < global part> 
construct to appear before the procedures. These procedures can then be 
used as installation intrinsics. A <global part> is not normally 
allowed when compiling separate procedures at lex level two. 

The title of the object code file generated for a procedure when the 
INTRINSICS option is TRUE is the same as if the procedure were compiled 
at lex level three. Thus, the separate procedures being compiled can be 
bound into the intrinsics. When the Binder program is used to bind 
procedures into the intrinsics, the INTRINSICS option must be assigned 
the value TRUE before the first source statement. 

When the batch facility is used, the INTRINSICS option cannot be 
assigned a value. 



< level opt ion > 

— LEVEL — < outer level > — ! 

<outer level > 

— < unsigned integer >—i 

(Type: value. Default value: 2 for programs, 3 for separately compiled 
procedures) 
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The LEVEL option allows the programmer to override the lexical (lex) 
levels assigned by the compiler. This feature is needed when compiling 
separate procedures for binding to a host program. The <outer level > 
construct specifies the lex level at which compilation is to begin. 

The LEVEL option must appear before the first syntactic item in a 
program, and it cannot be used when the batch facility is used. 



< library optlon> 



LIBRARY — 



(Type: Boolean. Default value: TRUE for CANDE-originated compiles and 
when the SEPCOMP option is TRUE, FALSE otherwise) 

When compiling multiple separate procedures (such as intrinsics), 
assigning TRUE to the LIBRARY option improves the efficiency of the 
binding. When TRUE, this option causes all object code from this 
compilation to be put in one file, which is marked as a mult iprocedure 
code file. If the LIBRARY option is FALSE, each separate procedure 
produces its own object code file. 



The LIBRARY option must appear before the first syntactic item in a 
program, and it cannot be assigned a value when the programmer is using 
the batch facility. 



The LIBRARY option is unrelated to the library facility described in the 
chapter "Interface to the Library Facility." 



< limit option > 

— LIMIT — <error limit> — 

<error limit> 

— <unsigned integer> — | 
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(Type: value. Default value: 10 for CANDE-originated compiles, 150 
otherwise) 



The LIMIT option allows the programmer to specify the number of 
compile-time errors that can occur before the compilation is terminated 
because of excessive errors. 



A limit of indicates that the program is not to be terminated for 

excessive errors. If, when the LIMIT option is assigned a value, the 

number of syntax errors already equals or exceeds that value, then the 
program is immediately terminated. 



<lineinfo option > 



- LINEINFO — 



(Type: Boolean, Default value: TRUE for CANDE-originated compiles, 
FALSE Otherwise) 



When TRUE, the LINEINFO option causes the compiler to associate sequence 
number information with the object code. This information is then 
displayed in the event of a run-time error. A larger code file is 
generated if the LINEINFO option is TRUE than if it is FALSE. 



<list option > 



- LIST -- 



(Type: Boolean, Default value: FALSE for CANDE-originated compiles, 
TRUE otherwise) 



When TRUE, the LIST option causes source input from the CARD and TAPE 
files and other information to be printed on the compiler LINE file. 



When a value is assigned to the LIST option, the same value is assigned 
to the SEGS option. 
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<listdeleted option > 



-- LISTDELETED — 



(Type: Boolean, Default value: FALSE) 



When both the LIST option and the LISTDELETED option are TRUE, the 
printer listing includes records from the secondary input file TAPE that 
are replaced, voided, or deleted during the compilation. The word 
"REPLACED" appears to the right of the source records replaced by a 
record from the primary input file, CARD; the word "VOIDT" appears if 
the record is voided from the TAPE file by the VOIDT option; and the 
word "DELETED" appears if the record is deleted by a compiler control 
record that consists of a dollar sign ($) followed by all blanks. 



If the LIST option is TRUE but the LISTDELETED option is FALSE, records 
from the TAPE file that are replaced, voided, or deleted are not written 
to the printer listing. If the LIST option is FALSE, the value of the 
LISTDELETED option is ignored. 



<listincl optlon> 



- LISTINCL — 



(Type: Boolean, Default value: FALSE) 



When both the LIST option and the LISTINCL option are TRUE, source 
records included by using the INCLUDE option are written to the printer 
listing. If the LIST option is TRUE but the LISTINCL option is FALSE, 
the included records are not written to the printer listing. If the 
LIST option is FALSE, the value of the LISTINCL option is ignored. 



When the batch facility is used, the LISTINCL option cannot be used. 
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<listomltted opt ion > 



— LISTOMITTED — 



(Type: Boolean, Default value: TRUE) 



When both the LIST option and the LISTOMITTED option are TRUE, source 
records omitted by the OMIT option are written to the printer listing. 
In the listing, the word "OMIT" appears next to the sequence number of 
each omitted record. If the LIST option is TRUE but the LISTOMITTED 
option is FALSE, omitted records are not written to the printer listing. 
If the LIST option is FALSE, the value of the LISTOMITTED option is 
ignored. 



<listp option> 



— LISTP - 



(Type: Boolean. Default value: FALSE) 



When TRUE, the LISTP option causes records from the primary source input 
file, CARD, to be written to the printer listing. Because these records 
are also written when the LIST option Is TRUE, the LISTP option is 
effective only when the LIST option is FALSE. 



<loadinfo opt ion > 



— LOADINFO ■— I 

I I 

|-<file specif ication>- I 

See also 

<file specif ication> . 611 

(Type: special) 



The DUMPINFO option and the LOADINFO option make it possible for the 
contents of certain simple variables and arrays of the compiler to be 
saved in a disk file and subsequently reloaded for separate compilation. 
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The <file specification) construct specifies the file to be created by 
the DUMPINFO option or loaded by the LOADINFO option. If the <title> 
form is used, the quoted string specifies the TITLE attribute of the 
file. The <internal file name> form provides an internal file name that 
can be associated with an actual file by file equation. The <name and 
title> form provides both an internal file name available for file 
equation and a title to be used if the internal file name is not 
file-equated. If the <file specification) construct is not used, the 
default INFO file or the file that is file-equated to the INFO file is 
used. 

These options are used in conjunction with separate compilation of 
procedures. Typically, all global declarations are compiled, and then 
the DUMPINFO option is used to dump information about the global 
declarations from the compiler to the file INFO. When the separate 
procedures are to be compiled, the file INFO, containing information 
about all of the global declarations, is read in by the LOADINFO option 
before the procedures are compiled. For example, consider the following 
programs: 



Program 1 

BEGIN 

<global declarations) 
$ DUMPINFO 
END. 



Program 2 

%%% LOAD THE GLOBALS 

[ 

$ LOADINFO 

<additional global declarations) 

] 

< separate PROCEDURE declarations) 

Each time a loadinfo operation is done, the old information in the 
affected variables and tables of the compiler is discarded. Thus, 
compiling different portions of the same program, even if they are in 
different environments, can be done in the same compilation. 

The loadinfo operation changes all items in th-- INFO file to globals and 
all procedures already compiled to forward PROCEDURE declarations. 
Thus, an INFO file created by a DUMPINFO operation that is done 
immediately before a PROCEDURE declaration in a normal compilation is 
suitable for loading global declarations when that procedure is to be 
compiled separately. 
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When two or more items with the same identifier are declared at 
different lexical (lex) levels, a separate compilation can access only 
the last declaration seen before the loadinfo operation occurred. 



If the release level of the compiler that performs the dumpinfo 
operation to create an INFO file and the release level of the compiler 
that performs the loadinfo operation on that file are not the same, a 
syntax error is given, and the compilation is discontinued. If a 
loadinfo operation is attempted and the file specified as the INFO file 
is not in fact an INFO file, or the INFO file was created by a compiler 
for a different language, a syntax error is given and the compilation is 
discontinued. 



The DUMPINFO option and LOADINFO, option must be the last options 
appearing on a compiler control record, and they cannot be used when 
using the batch facility. 



<mak.ehost opt ion > 



— MAKEHOST — ( — <environment >— ) — | 

<environment > 

!< OF I 

I . I 
<procedure identifier > I 

See also 

<procedure identifier>. 155 

(Type: Boolean, Default value; FALSE) 



Given only the source code and object code of a host program to be 
changed and the piatches to change it, the sepcomp facility of the 
compiler can separately compile and bind to the host program only the 
procedures that are being changed. This method, which is particularly 
useful for large programs, requires that information not normally 
collected and saved during the compilation of the host program be saved. 
When TRUE, the MAKEHOST option causes this information to be saved when 
compiling a program or a procedure at lexical (lex) level two. 
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If the MAKEHOST option Is TRUE, information is saved in the object code 
file of the program about the symbolic file used or created by the 
compilation, the sequence ranges of all procedures declared in the outer 
block, of the program, and the global declarations. The saving of the 
outer block environment enables lex-level-three procedures to be 
compiled separately within this environment. 



The information saved about the items declared in an environment 
describes all of the items in that environment. There is no information 
about the relative order of the declarations and therefore which items 
are visible from which procedures. Thus, a sepcomp of a patch is not 
necessarily equivalent to a full compile of that patch. For example, 
given the following host program: 

$ SET MAKEHOST 
BEGIN 

REAL X; 
PROCEDURE P; 
BEGIN 
REAL R; 
R := X + 5; 
END P; 
REAL ARRAY A[0:4]; 
P; 
END. 

If a patch replaces the statement 

R := X + 5; 
by the statement 

R := X + A[2]; 

a full compile with the patch fails with a syntax error on the 
assignment to R, because array A has not yet been declared. A sepcomp 
of the patch, however, is successful, because the environment 
information saved for the outer block describes A as well as X and P. 



Additional environments can be saved, if desired, so that procedures at 
lex levels greater than three can be replaced. Tne list of environments 
can extend across several source records. Environments must be fully 
qualified through the outermost level of PROCEDURE declaration, except 
that for a program that is a procedure, the name of that procedure must 
not appear. A procedure that is specified as an environment must 
contain a local declaration. If a specified environment does not 
contain a local declaration or if it is never found during the course of 
compilation, the compiler gives a syntax error containing the name of 
the environment. Environments can appear in any order, without regard 
to the actual block structure of the host program. 
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Source records that are inserted into a program using the INCLUDE option 
are not included in the environment information saved by the MAKEHOST 
option. This information is not saved because sequence numbers on 
included records can duplicate sequence numbers occurring in the rest of 
the program. 



The information necessary to make a program into a host program includes 
the information saved for the Binder program when the NOBINDINFO option 
is FALSE; therefore,, an error is given if both the NOBINDINFO option and 
the MAKEHOST option are TRUE. 



When making a host program, the NEW option should be TRUE if any changes 
are made to the host program. The default source file associated with 
the host program is the NEWTAPE file, if one has been created; 
otherwise, it is the TAPE file. 



The MAKEHOST option must appear before the first syntactic item in a 
program, and it cannot be assigned a value when the programmer is using 
the batch facility. 



Examples 



$ SET MAKEHOST 
BEGIN 

ARRAY A[0:9]; 
PROCEDURE PI; 
BEGIN 
BOOLEAN B; 
PROCEDURE INNER; 
BEGIN 
REAL R; 
IF B THEN 

R := * -I- A[2]; 

END INNER; 

END PI; 
PROCEDURE P2 ; 
BEGIN 

END P2: 

END. 

When the above program is compiled, information about the global 
environment is saved in the object code file for the program. If a 
patch is made to the body of procedure INNER, then during the 
sepcomp process, all of procedure PI is recompiled and bound to the 
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host program. If. however, tne MAKEHOST option was 

$ SET MAKEHOST (PI) 

then the local environment of PI is also saved in the object code 

file of the program. A sepcomp of a patch to the body of procedure 

INNER would cause only INNER to be recompiled and bound to the host 
program. 



$ SET MAKEHOST 

$ SET MAKEHOST (PASSONE, PASSTWO. WRAPUP OF PASSTWOj 

In this example, the second compiler control option overrides the 
first, saving the environment of procedures PASSONE, PASSTWO, and 
WRAPUP OF PASSTWO in addition to the global environment. 



<MCP Option > 

— MCP ~| 

(Type: Boolean, Default value: FALSE) 

When TRUE, the MCP option causes all value arrays, translate tables, 
truth sets, and constant pools to be allocated at lexical (lex) level 
two. 



The MCP option cannot be assigned a value after the appearance of the 
first syntactical item in a program or when the programmer is using the 
batch facility. 



<merge option> 

— MERGE — t 

(Type: Boolean, Default value: FALSE) 

When TRUE, the MERGE option causes the primary source input file, CARD, 
to be merged with a secondary source input file. TAPE, to form the input 
to the compiler. If matching sequence numbers occur, the record from 
CARD overrides tne record from TAPE. If the MERGE option is FALSE, only 
primary source input is used, and the TAPE file is ignored. 
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The total input to the compiler when the MERGE option is TRUE consists 
of all records from the CARD file, all records from the TAPE file that 
do not have sequence numbers identical to those on records in the CARD 
file, and all records inserted by INCLUDE options. Records in the CARD 
file also override INCLUDE options in the TAPE file if matching sequence 
numbers are encountered. 



When the batch facility is used, the MERGE option cannot be assigned a 
value. 



<new opt ion > 



~ NEW — 



(Type: Boolean, Default value: FALSE) 



When the NEW option is TRUE, the source input to the compiler from the 
CARD file is written to the updated source output file NEWTAPE. If the 
MERGE option is also TRUE, then the merged source input from the CARD 
and TAPE files is written to NEWTAPE. The format of the file written to 
NEWTAPE is such that it can later be used as input to the compiler. 



Records included in the source input by the INCLUDE option are written 

to the NEWTAPE file only if the INCLNEW option is also TRUE. Compiler 

control records ere written to the NEWTAPE file only if the initial 
dollar sign ($) does not appear in column 1 . 



The NEWTAPE file is created whether or not syntax errors occur in the 
source input . 



If the MAKEHOST option is TRUE and the first syntactic item has been 
compiled, any attempt to assign a value to the NEW option results in a 
syntax error. 



When the batch facility is used, the NEW option cannot be assigned 
value. 
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<newseqerr opt ion > 



— NEVISEQERR — I 

(Type: Boolean, Default value: FALSE) 

When TRUE, the NEWSEQERR option causes an error to be given if the 

sequence, number on a record of the NEWTAPE file is not strictly greater 

than the sequence number of the preceding record. If sequence errors 

occur and the NEWSEQERR option is TRUE, the NEWTAPE file is not loclced. 

the me-sage "NEWTAPE NOT LOCKED" is displayed on the Operator Display 

Terminal (ODT), and the message "NEWTAPE NOT LOCKED < number of errors> 
NEWTAPE SEQUENCE ERRORS" is printed on the printer listing. The 
NEWSEQERR option is effective even if the CHECK option is FALSE. 

When the batch facility is used, the NEWSEQERR option cannot be assigned 
a value. 



<noBCL opt ion > 



— NOBCL — i 



(Type: Boolean. Default value: FALSE) 



When TRUE the NOBCL option causes a syntax error to be given whenever a 
BCL construct that may lead to the creation of a BCL descriptor is 
encountered. This ootion is intended to aid in the elimination of BCL 
constructs from a program so that the program can run on non-BCL 
systems. 
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<nobindinfo option> 



— NOBINDINFO 



(Type: Boolean, Default value: FALSE) 



When TRUE, the NOBINDINFO option prevents information needed by the 
Binder program from being written to the object code file. The 
resulting object code file can be executed, but it cannot be used as an 
input file to the Binder program. Object code files that do not contain 
binding information (bindinfo) are smaller than object code files that 
contain bindinfo. 



Object code files that contain the timing code provided by the 
STATISTICS option cannot be bound. Thus, the NOBINDINFO option is 
assigned the value TRUE if the STATISTICS option is assigned the value 
TRUE. If the STATISTICS option is TRUE when the NOBINDINFO option is 
assigned the value FALSE, a syntax error is given. 



If the MAKEHOST option is TRUE when the NOBINDINFO option is assigned 
the value TRUE, a syntax error is given. 



When the batch facility is used. the NOBINDINFO option cannot be 
assigned a value. 



<nostacfcarrays opt ion > 



— NOSTACKARRAYS — i 



(Type: Boolean, Default value: FALSE) 



When TRUE, the NOSTACKARRAYS option prevents arrays from being allocated 
within the stack. 



When the NOSTACKARRAYS option is FALSE, the data from certain arrays is 
allocated within the stack. Such arrays are referred to as "in-stack 
arrays," and can be accessed slightly faster than an array whose data 
area is allocated in memory. 
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<noxreflist option> 



— NOXREFLIST 



(Type: Boolean, Default value: FALSE) 



When TRUE, the NOXREFLIST option prevents the SYSTEM/XREFANALYZER 
program from being initiated by the compiler when cross-reference 
information is being saved (that is, when either the XREF option or the 
XREFFILES option is TRUE). Instead, the file "XREF/<code file name>", 
where <code file name> is the name of the object code file generated by 
the compiler, remains on disk. SYSTEM/XREFANALYZER can be run later 
using the file "XREF/<code file name>" as input. The NOXREFLIST option 
has no effect if both the XREF option and the XREFFILES option are 
FALSE. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



<oldresize opt ion > 



— OLDRESIZE — 



(Type: Boolean, Default value: FALSE) 



The OLDRESIZE option. which affected the semantics of the RESIZE 
statement, no longer has any effect. The pre-Mark 3.3 semantics are no 
longer available for newly compiled programs. Any compiler control 
record that assigns the value TRUE to the OLDRESIZE option causes a 
syntax error to be given. Any other appearance of the OLDRESIZE option 
in a compiler control' record causes a warning message to be given. 
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<oniit option> 



~ OMIT -- 



(Type: Boolean, Default value: FALSE) 



When TRUE, the OMIT option causes records from the CARD file (and, if 
the MERGE option is TRUE, from the TAPE file) to be ignored (not 
compiled). If both the LIST option and the LISTOMITTED option are TRUE, 
then in the printer listing, the word "OMIT" appears next to the 
sequence number of each omitted record. When the OMIT option is TRUE, 
compiler control records with the initial dollar sign ($) in either 
column 1 or column 2 are recognized, but compiler control records with 
the $ in columns 3 through 72, inclusive, are ignored. 



< optimize opt ion > 



— OPTIMIZE — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the OPTIMIZE option causes additional analysis of Boolean 
expressions to be performed, and object code is generated to permit 
early termination of the expression evaluation. Any portion of the 
Boolean expression that could cause side effects is always evaluated. 



<page option > 



- PAGE — 



(Type: imniediate) 



When the LIST option is TRUE and the PAGE option appears 
listing is spaced to the top of the next page. 



the printer 
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< purge option > 



PURGE — <text> — 



See also 
<text> 



(Type: Binder command) 



During autobinding, the PURGE option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder PURGE statement and 
"Binder Reference Manual." 



are described in the 



When the batch facility is used, the PURGE option cannot be used. 



<segdescabove option > 



SEGDESCABOVE 



-<unsigned integer>- 



(Type: value. Default value: none) 



The SEGDESCABOVE option is used when compiling large programs 
have difficulty in addressing the segment dictionary. 



that may 



When a host program is compiled, this option causes all code segment 
descriptors to be allocated starting at the word in the Dl stack 
specified by the unsigned integer. The unsigned integer must be in the 
range 4 to 4095, inclusive. If the option is used after the first 
syntactic item has been compiled, the given value is added to the 
current size of the Dl stack. The Binder program preserves the 
segdescabove specification. Care should be taken when using this 
option, because unused Dl stack locations below the code segment 
descriptors occupy "save" memory when the program is running. 



This option is intended to be used when compiling host files and is 
ignored when separate procedures are compiled. When the batch facility 
is used, the SEGDESCABOVE option cannot be used. 
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<segs option > 



~ SEGS ~ 



(Type: Boolean, Default value: FALSE for CANDE-origlnated compiles, 
TRUE otherwise) 



If both the LIST option and the SEGS option are TRUE, the printer 
listing will contain beginning and ending segment messages. Assigning a 
value to the LIST option assigns the same value to the SEGS option. 
However, to suppress the segment messages, the SEGS option can be 
assigned the value FALSE even though the LIST option is TRUE. When the 
value of the LIST option is FALSE, the value of the SEGS option is 
ignored. 



<sepcoiap option> 



— SEPCOMP 

I 
|-<title>- 



See also 

<title> 611 



(Type: Boolean, Default value: FALSE) 



When TRUE, the SEPCOMP option invoices the automatic separate compilation 
and binding facility, called the "sepcomp facility." 



The title of the host program can be specified either by using the 
<title> syntax of the SEPCOMP option or by file-equating the HOST file 
of the compiler. The <title> specification taK.es precedence over file 
equation. The title of the default source file is stored in the host 
program, but this title can be overridden by file equation of the 
compiler file TAPE. 



Compiler control records with blank sequence numbers are accepted 
following the compiler control record that assigns TRUE to the SEPCOMP 
option and before the first "patch record." A patch record is a source 
record with a nonblank sequence number: at least one patch record is 
required in a sepcomp. Sequence number errors among patch records are 
not allowed. The SEPCOMP option examines the patch records, decides 
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which procedures of the host program must be recompiled, and generates 
Binder input for binding these procedures to the host program. The 
SEPCOMP option always tries to compile procedures at the highest 
possible lexical (lex) level. Therefore, the number of extra 
environments specified when making a host program affects the choices 
available to the SEPCOMP option. 



When TRUE, the SEPCOMP option assigns TRUE to both the AUTOBIND option 
and the LIBRARY option, causing all procedures to be compiled into one 
multlprocedure code file (a temporary file used by the Binder program). 
Explicitly assigning FALSE to the AUTOBIND option prevents the Binder 
from being called and causes the object code file to be locked on disk, 
if the LIBRARY option is TRUE. Explicitly assigning FALSE to the 
LIBRARY option causes each procedure compiled to be put in a separate, 
permanent object code file. Binding still occurs, but at a somewhat 
slower rate. 



If procedures are put in separate code files, the titles of the code 
files are determined in the standard way, with the procedure name 
replacing the last identifier from the title on the compile statement 
that invoked the compiler. Procedures compiled at lex level four and 
higher have the name of their environment in the code file name also. 
In the following example, when two lex- level -four procedures are 
compiled having the same name but different environments, two code files 
are produced (titled "A/PASSONE/Q" and "A/PASSTWO/Q" ) in addition to the 
new host file titled "A/HOST" (assuming that PASSONE and PASSTWO were 
specified as extra environments when A/HOST was made). 

$ SEPCOMP "A/HOST" 

$ RESET LIBRARY 

?o PATCH CARD TO Q OF PASSONE < sequence number > 
% PATCH CARD TO Q OF PASSTWO < sequence number > 



The special information associated with a host program is always copied 
by the Binder to the object code file of the new program so it can be 
used as a host. This information is not updated by either the Binder or 
the compiler during the sepcomp process. Following a sepcomp, this 
information can inaccurately reflect the actual structure and content of 
the host program with which it is associated. 



Because the arrangement of data in a bound code file differs from that 
of an unbound code file, binding to a bound host is faster than binding 
to an unbound host. For this reason, assigning TRUE to the AUTOBIND 
option when compiling a host program can be advantageous, because it 
causes the Binder to be invoked. 
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If the release level of the compiler that creates the host code file and 
the release level of the compiler that is attempting a sepcomp to that 
file are not the same, a syntax error is given and the compilation is 
discontinued. If the code file specified as the host program was not 
compiled with the HAKEHOST option equal to TRUE, or if the host program 
was compiled by a compiler for a different language, a syntax error is 
given and the compilation is discontinued. 



The SEPCOMP option automatically assigns values to several other 
compiler control options- in order to simplify operation. The- MERGE 
option is unavailable for use while the SEPCOMP option is TRUE. 
Assigning TRUE to the MERGE option before assigning TRUE to the SEPCOMP 
option is not allowed because it destroys the default file equation of 
the source file to be used for the patches. 



When the batch facility is used, the SEPCOMP option cannot be assigned a 
value. If the TADS option is TRUE when the SEPCOMP option is assigned 
the value TRUE, the value of the SEPCOMP option is left equal to FALSE 
and a warning message is given. The SEPCOMP option cannot be assigned a 
value after the first syntactic item of a program has been compiled. 
Multiple SEPCOMP option settings are not allowed because, when first 
assigned TRUE, the SEPCOMP option initiates preprocessing of the source 
input from the CARD file. 



For more information on the sepcomp facility, refer to the description 
of the MAKEHOST option in this section. 



<seq option > 



— SEQ — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the SEQ option causes the printer listing and the updated 
source file, NEWTAPE, to contain new sequence numbers. These new 
sequence numbers are determined by the current values of the sequence 
base option and the sequence increment option. 



This option is effective only when the LIST option or NEW option is 
TRUE. The sequence numbers that appear on the records in these files 
when the SEQ option is FALSE are identical to the sequence numbers on 
the corresponding records in the input files. 
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The sequence base option and the sequence increment option are described 
in this section. 



<seqerr opt ion > 

— SEQERR -- I 
(Type: Boolean, Default value: FALSE) 



When TRUE, the SEQERR option causes an error to be given if the sequence 
number on a record of the TAPE file is not strictly greater than the 
sequence number of the preceding record. If sequence errors occur and 
the SEQERR option is TRUE. the object code file is not locked, the 
message "CODE FILE NOT LOCKED" is displayed on the Operator Display 
Terminal (ODT), and the message "CODE FILE NOT LOCKED <number of errors> 
TAPE SEQUENCE ERRORS" is printed on the printer listing. The SEQERR 
option is effective even when the CHECK option is FALSE. 



< sequence base option > 

l< i 

I I 
— — /8\-<digit> I 

(Type: value. Default value: 1000) 



The sequence base option specifies the sequence number that is to be 

assigned to the next record when the SEQ option is TRUE. After each 

record is resequenced, the value of the sequence base option is 
increased by the value of the sequence increment option. 
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(sequence increment oF>tion> 



— + _ — /8\-<digit> 



(Type: value, Default value: 1000) 



The value of the sequence increment option is used to increment the 
value of the sequence base option when records are resequenced because 
the SEQ option is TRUE. 



< sharing opt ion > 



— SHARING 



DONTCARE 

PRIVATE — 

SHAREDBYALL — — 
SHAREDBYRUNUNIT 



(Type: value, Default value: DONTCARE) 

The SHARING option is used in a library program to specify how 
programs are to share the library. 



other 



DONTCARE 

If the SHARING option has the value DONTCARE, the Master 
Control Program (MCP) determines the sharing, and it is unknown 
to all users invoking the library. DONTCARE is the default 
value of the SHARING option. 



PRIVATE 

If the SHARING option has the value PRIVATE, a separate 
instance of the library is started for each invocation of the 
library. Any changes made to global items in the library by a 
block that invoked the library apply only to that user of the 
library. 
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SHAREDBYALL 

If the SHARING option has the value SHAREDBYALL, all 
invocations of the library share the same instance of the 
library. Any changes made to global items in the library by a 
block that has invoked the library apply to all users of that 
library. 

SHAREDBYRUNUNIT 

A run unit consists of a program and all libraries that are 
initiated either directly or indirectly by that program. A 
"program," in this context, does not include either a library 
that is not frozen or any tasks that are initiated by the 
program (that is, a process family is not a run unit). If the 
SHARING option has the value SHAREDBYRUNUNIT, all invocations 
of a library within a run unit share the same instance of the 
library. 

Note that a library is its own run unit until it freezes. For 
example, program P initiates library A and, before library A 
freezes, it in turn initiates library B. Now library B is in 
library A's run unit, not in program P's run unit. Had library 
A initiated library B after freezing, both library A and 
library B would be in program P's run unit. 

The SHARING option must appear before the first syntactic item in the 
program, and it cannot appear when the batch facility is used. 



< single option > 



SINGLE — 



(Type: Boolean, Default value: TRUE if the compiler was compiled with 
the DOUBLESPACE compiler-generation option equal to FALSE, FALSE 
otherwise) 



When TRUE, the SINGLE option causes the printer listing to be 
single-spaced. When FALSE, the SINGLE option causes the printer listing 
to be double-spaced. 
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< stack opt ion > 



— ■ STACK — 



(Type: Boolean, Default value: FALSE) 

If both the LIST option and the STACK option are TRUE, the printer 
listing includes the relative stack, addresses, in the form of address 
couples, for all program variables. If the LIST option is TRUE but the 
STACK option is FALSE, the printer listing does not contain these 
address couples. The value of the STACK option is ignored if the LIST 
option is FALSE. 



< statistics option > 



— STATISTICS 1 

I I 

|_ ( — LABELS — ) -I 

I I 

I- SET I 

I I 

I- RESET -I 

(Type: Boolean, Default value: FALSE) 

When TRUE, the STATISTICS option causes timing statistics to be 
gathered. The option is examined at the beginning of each procedure or 
block and, if it is TRUE at that time, timing statistics are gathered 
for that procedure or block. Although the value of the option can be 
altered at any time, only its value at the beginning of procedures and 
blocks is significant in determining whether timings are made. 

The Binder program cannot bind object code files that contain the timing 
code necessary for statistics; therefore, if the NOBINDINFO option is 
FALSE when the STATISTICS option is assigned the value TRUE, the 
NOBINDINFO option is assigned the value TRUE and a warning message is 
given. If the STATISTICS option is TRUE when the NOBINDINFO option is 
assigned the value TRUE, a syntax error is given. 
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If statistics are taken for a procedure or block, the frequency of 
execution of that procedure or block is measured, along with the length 
of time spent in that procedure or block. When the program is completed 
for any reason (including both normal and abnormal termination), the 
statistics of the executing task are printed out to the TASKFILE. 



On the statistics output listing, an asterisk (*) indicates that doubt 
exists about the timing for the specific procedure whose name precedes 
the asterisk. In addition, timings are invalid for any procedure or 
block that is resumed by a "bad go to." 



Only the first six characters of any identifier are printed on the 

listing. 



For any procedure or block that has statistics gathered, the timings can 
be broken down to the label level within that procedure or block by 
using the LABELS syntax. The word "LABELS" can be preceded by "SET" or 
"RESET"; if both are omitted, SET is assumed. For example, 

$ SET STATISTICS (LABELS) 

begins timing of label breakpoints, and 

$ SET STATISTICS (RESET LABELS) 

ends timing of label breakpoints. The words "SET" or "RESET" inside the 
parentheses affect only the LABELS specification. 



<stop option > 



— STOP — <text> — 



See also 

<text> , 61 



(Type: Binder command 



During autobinding, the STOP option Is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder STOP statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the STOP option cannot be used. 
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<TADS option> 



•- TADS 



<• 



_ ( — /1\- FREQUENCY ) 

I . i 

|-/1\- REMOTE — <file identifier >- I 



See also 

<file identifier> . ........ 85 



(Type: Boolean, Default value: FALSE) 

When the TADS option is TRUE, special debugging code and tables are 
generated as part of the object code file. The tables are generated to 
support the symbolic debugging environment of the ALGOL Test and Debug 
System (TADS). For more information on ALGOL TADS, refer to the "ALGOL 
Test and Debug System (TADS) User's Guide." 

The FREQUENCY option causes additional code and tables to be generated 
for coverage and frequency analysis. This option must be specified if 
either the TADS "FREQUENCY" command or the TADS "COVERAGE" command is to 
be used to determine the number of times individual statements have been 
executed or which statements have not been executed. 

The REMOTE option allows TADS to share a remote file with the program 
being tested. Sharing a file might be necessary, because only one 
remote input file can be open for each station. If specified, the <file 
identifier > must correspond to a file identifier declared in a FILE 
declaration occurring later in the outer block of the program. The file 
must have the attributes KIND equal to REMOTE, UNITS equal to 
CHARACTERS, and FILEUSE equal to 10. The MAXRECSIZE attribute must not 
be less than 72. The file must not be declared to be a direct file. 



If the AUTOBIND option, the MAKEHOST option, or the SEPCOMP option is 
TRUE when the TADS option is assigned the value TRUE, then the TADS 
option is assigned the value FALSE and a warning message is given. 
Programs compiled with the TADS option equal to TRUE cannot assign TRUE 
to the MAKEHOST option, the AUTOBIND option, or the SEPCOMP option, and 
they cannot be used as input files to the Binder program. 
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The TADS option must appear before the first syntactic item in a 
program. 



< target opt ion > 



— TARGET — = THIS — 

- LEVELO 

- LEVEL 1 

- B5900 - 

- B6800 - 

- B6900 - 

- B7000 - 

- B7700 - 

- B7800 - 

- B7900 - 

- A 3 — 

- A 9 — 

- A 10 — 



(Type: Value, Default value: installation-defined) 



The TARGET option specifies the computer family for which the generated 
code is to be optimized. The keyword "THIS" indicates that code is to 
be optimized for the computer on which it is compiled. The keyword 



code is to 
of computers. 



be optimized 
The keyword 



for the 
"LEVELl" 



"LEVELO" indicates that 

B 5000/B 6000/B 7000 Series 

indicates that code is to be optimized for the A Series of computers. 

The generated object code can be run on any computer that is 

code-compatible with the specified family. Table 7-2 indicates 

code-compatible families. 
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Table 7-2. Code-Compatible Families 
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For information on how an installation defines the default target 
computer family, refer to the "COMPILERTARGET" command in the "Operator 
Display Terminal (ODT) Reference Manual.'' 



This option must appear before the first syntactical item in the 
program. It cannot be used in the same program as the B7700 option. 



<time opt ion > 



— TIME — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the TIME option causes trailer information, such as the 
number of errors, the number of code segments, and the compilation time, 
to be printed on the printer listing. Because this trailer information 
is also printed when the LIST option is TRUE, the value of the TIME 
option is effective only when the LIST option is FALSE. 
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<use opt ion > 



USE — <text>-- 



See also 

<text>. 51 

(Type: Binder command) 



During autobinding, the USE option is passed directly to the Binder 
program for analysis. The format and function of this option are the 
same as those of the Binder USE statement and are described in the 
"Binder Reference Manual." 



When the batch facility is used, the USE option cannot be used 

<user opt ion > 

— <identifier> — | 
(Type: Boolean, Default value: FALSE) 



If an identifier on a compiler control record is not recognized as one 
of the predefined options, it is considered to be a user option. A user 
option can be manipulated exactly like any other Boolean option; that 
is, it can be assigned values by using the SET, RESET, and POP keywords. 
In addition, it can be used in option expressions to assign values to 
standard Boolean options or to other user options. 
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<version option> 



<replace version> I 

|-<append version) — ! 

replace version> 

— VERSION — <version increment)— . — <cycl€ increment)- 



|- . — < patch number)- I 

<version increment) 

— <di.git> — <digit) — i 

<cycle increment) 

— <digit > — <digit) — <digit) — I 

<patch number) 

— <digit) — <digit> — <digit> — I 

<append version) 

— VERSION — + — <version increment)— . — + — <cycle increment)-) 

> I 

I 
i- . — <patch number)-! 

(Type: value. Default value: 00.000.000) 

The VERSION option allows the user to specify an initial version number 
for a program, replace an existing version number, or append to an 
existing version number. 

If the NEW option is TRUE, a VERSION option appears in the TAPE file, 
and the CARD file contains a <repl?Lce version) or <append version), then 
the VERSION option record m the NEWTAPE file is updated with the 
version, cycle, and patch number in the last VERSION option record in 
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the CARD file. The sequence number of the VERSION option ip the CARD 
file must be less than the sequence number of the VERSION option in the 
TAPE file. 



The functions COMPILETIME(20) . COMPILETIME( 21 ) , and COMPILETIME( 22 ) 
allow a programmer to access the current version, cycle, and patch 
numbers, respectively. For more information, see "<compiletime 
function>" in the chapter "Expressions." 



When the batch facility is used, the VERSION option cannot be used. 

See also 

<compiletime function) 538 

Examples 

$ VERSION 25.010.010 

Sets the current version to 25.010.010. 

$ VERSION +01. +001. 010 

Increments the current version by 01 in the version increment, by 
001 in the cycle increment, and assigns 010 to the patch number. 
For example, if the existing version is 25.010.005 and this VERSION 
option is compiled, the resulting version is 26.011.010. 

<void option > 

— VOID — I 
(Type: Boolean, Default value: FALSE) 



When TRUE, the VOID option causes all source input other than compiler 
control records from both the TAPE and CARD files to be ignored by the 
compiler until the VOID option is assigned the value FALSE. The ignored 
source input is neither listed nor included in the updated source file, 
regardless of the values of the LIST option and the NEW option. Once 
the VOID option is assigned TRUE, it can be assigned FALSE only by a 
compiler control record in the CARD file. 
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<voidt option > 



-- VOIDT 



(Type: Boolean, Default value: FALSE) 

If the MERGE option is TRUE and the VOIDT option is TRUE, all source 
input from the TAPE file is ignored by the compiler until the VOIDT 
option is assigned the value FALSE. Therefore, while the VOIDT option 
is TRUE, only primary source input from the file CARD is compiled. The 
ignored input is neither listed nor included in the updated source file, 
regardless of the values of the LIST option and the NEW option. Once 
the VOIDT option is assigned TRUE, it can be assigned FALSE only by a 
compiler control record in the CARD file. If the MERGE option is FALSE, 
the value of the VOIDT option is ignored. 



<warnsupr opt ion > 

-- WARNSUPR —I 

(Type: Boolean, Default value: FALSE) 

When TRUE, the WARNSUPR option prevents warning messages from being 
given. 



<writeaf ter option> 

-- WRITEAFTER ~ i 

(Type: Boolean, Default value: FALSE) 

The WRITEAFTER option provides the ability to designate whether carriage 
control is performed before or after a write operation. The option can 
be assigned values repeatedly in order to select bef ore-write or 
after-write carriage control for individual files and I/O statements. 

Normally in ALGOL, carriage control is performed following a write 
operation. 
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If the WRITEAFTER option is TRUE when a FILE declaration is compiled, 
then for all I/O statements that explicitly reference the file, carriage 
control is done before a write operation. For any I/O statement 
compiled when the WRITEAFTER option is TRUE, carriage control is done 
before the write operation. 



The WRITEAFTER option does not apply to direct files or direct I/O 
statements. 



<xdecs option> 



— XDECS — 



(Type: Boolean, Default value: TRUE if either the XREF option or the 
XREFFILES option is TRUE, FALSE otherwise) 



When the compiler is saving cross-reference information because the XREF 
option or the XREFFILES option is TRUE, only identifiers declared while 
the XDECS option is TRUE are included in the cross-reference 
information. This option is assigned TRUE when the XREF option or the 
XREFFILES option is assigned TRUE and can be assigned a value as many 
times as desired. If the XDECS option is assigned the value TRUE and 
both the XREF option and the XREFFILES option are FALSE, the XDECS 
option is assigned FALSE and a syntax error is given. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



<xref opt ion > 



— XREF I 

I I 

|-<linewidth>- I 

<linewidth> 

An <integer> between 72 and 160, inclusive 

(Type: Boolean, Default value: FALSE) 
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Depending on the values of several related compiler control options, the 
compiler optionally generates cross-reference information containing an 
alphabetized list of identifiers that appear in the program and, for 
each identifier, the type of the item named by that identifier, the 
sequence number of the source input record on which the identifier is 
declared, the sequence numbers of the input records on which the 
identifier is referenced, and other relevant information. The following 
factors can be controlled through the use of compiler control options: 

1. Whether or not the compiler saves cross-reference information 
as it is processing the source input 

2. Which identifiers and which references to these identifiers are 
cross-referenced 

3. Whether or not the SYSTEM/XREFANALYZER program is initiated 
automatically by the compiler 

4. If SYSTEM/XREFANALYZER is automatically initiated, whether it 
is to produce printed output, disk files suitable for input to 
SYSTEM/ 1 NTEJiACTIVEXREF and the Editor, or both 



The compiler saves cross-reference information if either the XREF option 
or the XREFFILES option or both options are TRUE. This information is 
discarded if any syntax errors occur during compilation. If used, these 
options should be assigned TRUE before any source input has been 
processed. Once assigned TRUE, these options cannot be assigned FALSE. 



The identifiers and their references to be cross-referenced can be 
selected by the XDECS option and the XREFS option, respectively. 
Neither of these options can be used if cross-reference information is 
not being saved by the compiler (that is. if both the XREF option and 
the XREFFILES option are FALSE). 



When the compiler is saving cross-reference information, this 
information is written to a disk file in raw form. Before this 
information can be printed or read by SYSTEM/ INTERACTIVEXREF and the 
Editor, it must be analyzed by SYSTEM/XREFANALYZER. If the NOXREFLIST 
option is FALSE, the compiler automatically initiates 
SYSTEM/XREFANALYZER to process the raw cross-reference file. If the 
NOXREFLIST option is TRUE, SYSTEM/XREFANALYZER is not initiated, and the 
compiler's raw file is left on disk with the title "XREF/<code file 
name>", where <code file name> is the name of the object code file 
produced by the compiler; this file can be analyzed at a later time by 
running SYSTEM/XREFANALYZER directly. 



If the compiler initiates SYSTEM/XREFANALYZER (that is, if the 
NOXREFLIST option is FALSE), the program produces either a printed 
listing or a pair of disk files suitable for the Editor and 
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SYSTEM/INTERACTIVEXREF. If the XREF option is TRUE, a listing is 
produced. If the XREFFILES option is TRUE, the pair of disk files is 
produced; these files are titled "XREFFILES/<code file name>/XREFS" and 
"XREFFILES/ < code file name>/XDECS" . If both the XREF option and the 
XREFFILES option are TRUE, both a listing and the disk files are 
produced. 



The line width, in characters, of the listing produced by 
SYSTEM/XREFANALYZER can be specified by the <linewidth> construct. If 
not specified, the line width is 132. 



User options are included in the cross-reference information 



SYSTEM/XREFANALYZER is described under "XREFANALYZER" in the "System 
Software Utilities Reference Manual," and SYSTEM/INTERACTIVEXREF is 
described under "INTERACT I VEXREF" in the "System Software Utilities 
Reference Manual." The Editor is described in the "Editor User's Guide." 



<xref files opt ion > 



— XREFFILES — 



(Type: Boolean, Default value: FALSE) 



When TRUE, the XREFFILES option causes cross-reference information to be 
saved by the compiler and causes the SYSTEM/XREFANALYZER program, if it 
is initiated by the compiler, to produce files that can be used by the 
Editor and SYSTEM/INTERACTIVEXREF. These files have the titles 
"XREFFILES/ < code file name>/XDECS" and "XREFFILES/ < code file 
name>/XREFS" , where <code file name> is the name of the object code file 
that the compiler is generating. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



653 



Compiling Programs 



xxrefs opt ion > 



-- XREFS — 



(Type: Boolean, Default value: TRUE if either the XREF option 
XREFFILES option is TRUE, FALSE otherwise) 



or the 



When the compiler is saving cross-reference information because the XREF 
option or the XREFFILES option is TRUE, only identifier references that 
are encountered while the XREFS option is TRUE are included in the 
cross-reference information. This option is assigned TRUE when the XREF 
option or the XREFFILES option is assigned TRUE, and it can be assigned 
a value as many times as desired. If the XREFS option is assigned the 
value TRUE when both the XREF option and the XREFFILES option are FALSE, 
then the XREFS option is assigned FALSE and a syntax error is given. 



For more information on cross-referencing, refer to the description of 
the XREF option in this section. 



<$ option > 



— $ — 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the $ option are TRUE, the printer listing 
includes all compiler control records. If the LIST option is TRUE but 
the $ option is FALSE, only compiler control records with an initial 
dollar sign ($) in columns 2 through 72, inclusive, appear in the 
printer listing. If the LIST option is FALSE, the value of the $ option 
is ignored. 
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The library facility is a feature that can be used to structure 
processes. A library is a program containing one or more procedures 
that can be called by other programs, which are referred to as "calling 
programs." These procedures are "entry points" into the library. Unlike 
a regular program, which is always entered at the beginning, a library 
can be entered at any entry point. 

Libraries provide all the benefits of procedures plus the added 
advantages that they can be reused, and they can be shared by a number 
of programs. Consolidating logically related functions into a library 
can make programming easier and program structure more visible. A call 
on a procedure in a library is equivalent to a call on a procedure in 
the calling program. 



Libraries offer the following improvements over binding: 

1. Interlanguage communication is significantly improved. 

2. Standard packages of functions (such as plotting and 
statistics) need not be copied into any calling programs. 

Libraries offer the following improvements over installation intrinsics: 

1. A library can have its own global files, databases, transaction 
bases, and so on. 

2. Libraries can contain initialization and termination code. 

3. Libraries can themselves call other libraries. 

4. Individual users can create their own libraries without 
possessing special privileges. 

5. Libraries can be written in more languages than can the 
installation intrinsics. 

6. More than one version of a library can be in use at a time. 
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FUNCTIONAL- DESCRIPTION OF LIBRARIES 



This section describes how the library facility operates 
Library Programs 



A library program is a program that specifies entry points (procedures) 
for use by calling programs and is distinguished by the occurrence of 
EXPORT declarations and FREEZE statements. A procedure in a library is 
specified to be an entry point by appearing in an EXPORT declaration. A 
library program becomes a library after execution of a FREEZE statement. 



Calling Programs 



A calling program is a program that calls entry points provided by a 

library and is distinguished by the appearance of LIBRARY declarations 

and PROCEDURE declarations that contain the < library entry point 
specification) construct. 



A library can itself function as a calling program and call other 
libraries. The only restriction is that a chain of library linkages 
must never be circular. That is, a library cannot reference itself, 
either directly or indirectly, through a chain of library references. 



Library Directories and Templates 



The information used by the Master Control Program (MCP) to match entry 
points in a library with entry points declared in a calling program is 
contained in a pair of data structures called the "directory" and the 
"template," which are built by the compilers. 



When a program exports entry points and contains a FREEZE statement, the 
object code file for that program contains a library directory. One 
directory exists for each block, that contains an EXPORT declaration. 
After a library "freezes" (executes a FREEZE statement), only one 
directory is in effect until the library program finishes executing. 



A library directory contains a description of all the entry points In 
the library. This description includes the following information: 

1. The name of the entry point 
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2. The entry point's type 

3. A description of the entry point's parameters 

4. Information on how the entry point is provided (see "Linkage 
Provisions" later in this chapter) 

When a program declares a library and entry points in that library, the 
object code file for the program contains a library template that 
describes the library and the declared entry points. One template 
•exists for each library declared in the calling program. A template 
contains the following information: 

1. A description of the attributes of the library 

2. A description of all the entry points of the library that are 
declared by the program. Each description includes the 
following information: 

a. The name of the entry point 

b. The entry point's type 

c. A description of the entry point's parameters 



The SETACTUALNAME function can b? used to change the name of an entry 
point in an unlinked library template. (For more information, refer to 
the SETACTUALNAME function in the chapter "Expressions.") 



See also 

Linkage Provisions.' . . . . / &59 

<setactualname function). 575 



Library Initiation 



On the first call on an entry point of a library or at an explicit 
linkage request, the calling program Is suspended. The description of 
the entry point in the library template of the calling program is 
compared to the description of the entry point with the same name in the 
library directory associated with the referenced library. 



If the entry point does not exist in the library, or if the two entry 
point descriptions are not compatible, a run-time error is given and the 
calling program is terminated. If the entry point exists and the two 
entry point descriptions are compatible, the MCP automatically initiates 
the library program (if it has not already been initiated). The library 
program runs normally until it executes a FREEZE statement, which makes 
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the entry points available. All of the entry points of the library that 
are declared in the calling program are linked to the calling program, 
and the calling program resumes execution. 



If a calling program declares an entry point that does not exist in the 
library, no error is generated when the library is initiated; however, a 
subsequent call on that entry point causes a "MISSING ENTRY POINT" 
run-time error, and the calling program is terminated. 



A library can be specified to be permanent or temporary. A permanent 
library remains available until it is terminated either by the Operator 
Display Terminal (ODT) commands DS (Discontinue) or THAW, or by 
execution of a CANCEL statement. A temporary library remains available 
as long as users of the library remain. A temporary library that is no 
longer in use "unfreezes" and resumes running as a regular program. 



The PERMANENT or TEMPORARY specifications of the FREEZE statement 
control the duration of a library. Any running program that executes a 
FREEZE statement becomes a library. When a library is initiated by 
explicitly running the library program instead of by calling an entry 
point, the FREEZE statement should specify PERMANENT. (If TEMPORARY is 
specified, the library immediately unfreezes because it has no users.) 
After a library unfreezes, it must not execute another FREEZE statement 
in an attempt to become a library again,. 



Because a library program initially runs as a regular program, the flow 
of execution can be such that the execution of a FREEZE statement is 
conditional and can occur anywhere in the program. 



If a calling program causes a library program to be initiated and the 
library program terminates without executing a FREEZE statement (for 
example, because it was not actually a library program and, thus, had no 
FREEZE statement), the attempted linkage to the library entry points 
cannot be made, and the calling program is terminated. 



Linkage to a library can be explicitly requested by using the 
LINKLIBRARY function, which is described in the cnapter "Expressions." 



See also 

<linklibrary function) 559 
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Linlcage Provisions 



Entry points declared in a calling program are linked to corresponding 
entry points provided by a library in one of three ways: 

1. Directly 

2. Indirectly 

3. Dynamically 



The library program specifies the form of linkage. Indirect and dynamic 
linkages allow linkage to be established to libraries other than the 
library specified by the calling program. The calling program can 
control the library invocation to which it is linked only by specifying 
the object code file title or the function name of the library or, for 
dynamic linkage, by specifying the LIBPARAMETER library attribute. 
Depending on the value of the LIBACCESS library attribute, the TITLE 
attribute or FUNCTIONNAME attribute is used to specify the object code 
file title of the library. (For a discussion of the library attributes, 
refer to "Library Attributes" in this chapter.) 



Direct linkage occurs when the library program contains the procedure 
that is named in the EXPORT declaration of the library. 



Indirect linkage occurs when the library program exports a procedure 
that is declared as an entry point of another library. The MCP then 
attempts to link the calling program to this second library,, which can 
provide the entry point directly, indirectly, or dynamically. 



Dynamic linkage allows a library program to determine at link time which 
library task the calling program will be linked to. The library program 
must provide a selection procedure that accepts the value of the 
LIBPARAMETER library attribute as a parameter. Based on the value of 
LIBPARAMETER, the selection procedure selects and initiates a library 
task. The selection procedure must also accep:, as a second parameter, 
a procedure. This procedure, which is provided by the MCP to verify 
that the library task is valid and complete, must be called before the 
selection procedure is exited. The MCP calls the selection procedure at 
link time. (Refer to "Library Examples" in this chapter for a more 
detailed explanation and examples of libraries that provide dynamic 
linkage. ) 
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The only restrictions on the complexity of indirect and dynamic linkages 
are as follows: 

1. Eventually, some library must provide the entry point directly. 

2. The chain of referenced libraries must never become circular. 



See also 

Library Attributes 
Library Examples. 
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Discontinuing Linkage 



A program can delink from a library program by using either the CANCEL 
statement or the DELINKLIBRARY function. 



The CANCEL statement causes the library program to unfreeze and resume 
running as a regular program. The CANCEL statement can be used only on 
PRIVATE and SHAREDBYRUNUNIT libraries. 



The DELINKLIBRARY function affects only the linkage between the program 
executing the DELINKLIBRARY function and the specified library. Any 
other programs linked to the specified library are not affected. (For 
more information, see the DELINKLIBRARY function in the chapter 
"Expressions.") 



See also 

<delinklibrary function 
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Error Handling 



Any fault caused (and ignored) by a procedure in a library that is 
invoked by a calling program is treated as a fault in the calling 
program. If ignored by the calling program, this fault causes the 
calling program to be terminated but has no effect on the status of the 
library. 



If a library program faults (or is otherwise terminated) before 
executing a FREEZE statement, then all calling programs that are waiting 
to link to that library program are also terminated. 
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If a library is terminated while calling programs are linked to it 
those calling programs are also terminated. 



The first call on an entry point in a library causes library linkage to 
be made. In this phase, an attempt is made to locate and establish 
links to all entry points declared by the calling program. If an entry 
point declared in the calling program does not exist in the library, its 
linkage cannot be established, and any subsequent calls to that entry 
point result in a "MISSING ENTRY POINT" error. This error continues to 
occur whenever a calling program links to that instance of the library 
and calls that entry point. Thus, it is advisable to remove that 
instance of the library (by either a THAW or DS (Discontinue) ODT 
command) and initiate a correct version of the library. (For more 
information, refer to the "Operator Display Terminal (ODT) Reference 
Manual" for a description of these commands.) 
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CREATING LIBRARIES 



A library program is created by using the EXPORT declaration to declare 
procedures to be exported as entry points, and by using the FREEZE 
statement. The duration of a library program following initiation is 
controlled by the TEMPORARY or PERMANENT specification of the FREEZE 
statement. The allowed sharing of a library program is controlled by 
the SHARING compiler control option, described below. 

Library Sharing Specifications 



Users of a library can be restricted through the normal file access 
features provided by the system. The allowed simultaneous usage of a 
library can be specified by the creator of the library at compile time 
through the SHARING compiler control option. The library sharing can be 
PRIVATE, SHAREDBYALL, SHAREDBYRUNUNIT , or DONTCARE. 

PRIVATE 

A separate instance of the library is started for each 
invocation of the library. Any changes made to global items in 
the library by the program unit (block:, procedure, or external 
task.) invoking the library apply only to that particular 
calling program. 

SHAREDBYALL 

All invocations of the library share the same insz.ance of the 
library. Any changes made to global items in the library by a 
program unit that has invoked the library apply to all users of 
that library. 

SHAREDBYRUNUNIT 

A run unit consists of a program and all libraries that are 
called, either directly or indirectly, by that program. A 
"program," in this context, excludes both a library that is not 
frozen and any tasks that are initiated by the program (that 
is, a process family is not a run unit). All invocations of a 
library within a run unit share the same instance of the 
library. 

Note that a library is its own run unit until It freezes. For 
example. program P initiates library A and. before library A 
freezes, it in turn initiates library B. Now library E is in 
library A's run unit, not in program P's run unit. Had library 
A initiated library B after freezing. both library A and 
library B would be in program P's run unit. 
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DONTCARE 

The MCP determines the sharing. This determination is unlcnown 
to all users invoking the library. 



The default value of the SHARING compiler control option is DONTCARE, 
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To use a library, the calling program does the following: 

- Declares the library in a LIBRARY declaration, specifying the 
attributes of the library 

- Declares the entry points of the library in PROCEDURE 
declarations with <library entry point specification) parts 



When an entry point is invoiced or at an explicit linkage request, the 
MCP automatically creates the library linkage. If the library program 
has not already been initiated, the MCP initiates it; then, when the 
library is frozen, the MCP links the library to the calling program. 
The MCP attempts to make linkages to all entry points referenced in a 
library at the time that the library is first invoked. 



The LINKLIBRARY function can be used to determine whether or not the 
calling program is currently linked to or is capable of being linked to 
a particular library program. If the calling program is not currently 
linked but is capable of being linked, the linkage is performed. During 
the linkage process, an attempt is made to link to every entry point 
exported from the library whose name matches an entry point declared in 
the calling program. Only those names that match are checked for 
correct function type, number of parameters, and parameter types. 
Therefore, the LINKLIBRARY function does not check that every entry 
point declared in the calling program is also exported from the library. 
(For more information, see the LINKLIBRARY function in the "Expressions" 
chapter. ) 



See also 

<linklibrary function) 559 



The CANCEL statement and the DELINKLIBRARY function can be used to 
terminate the linkage between a calling program and a library. The 
CANCEL statement causes the library to unfreeze and resume running as a 
regular program regardless of whether it is temporary or permanent. 
Only PRIVATE libraries or SHAREDBYRUNUNIT libraries can be canceled. 
The DELINKLIBRARY function has no effect on any other users of the 
library. (For more information on the DELINKLIBRARY function, refer to 
the description of the function in the chapter . "Expressions ." ) 



See also 

<delinklibrary function) . 543 



665 

Interface to the Library Facility 

The SETACTUALNAME function determines whether or not the name of a 

particular library entry point can be changed in the template to a 

particular character string and, if possible, makes the change. The 

name of an entry point of a linked library cannot be modified. 

Therefore, a linked library must be delinked before the SETACTUALNAME 

function can be called to change the name of any of its entry points. 

(For more information, see the SETACTUALNAME function in the chapter 
"Expressions.") 



See also 

<setactualname function>. ^^^ 



Library Attributes 

Libraries, like files, have attributes that can be assigned values and 
tested programmatically. 

The calling program can change library attributes dynamically: however, 
since the MCP ignores, any changes made to library attributes of linked 
libraries, these changes must not be made while the program is linked to 
the library. Any library attribute changes must be made before the 
calling program has linked to the library or after the library has been 
delinked from the program. 

This section describes the library attributes. The first line of each 
description tells whether the attribute can be read or written or both; 
Its type; and its default value, if any. 



FUNCTIONNAME 

(Read/Write, EBCDIC string-valued) 

FUNCTIONNAME specifies the system function name used to find the 
target object ' code ' file for the library. (For more information, 
refer to the LIBACCESS attribute.) 

INTNAME 

(Read/write, EBCDIC string-valued) 

INTNAME specifies the internal identifier for the library. 
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LIBACCESS 

(Read/Write, mnemonic-valued. Default value: BYTITLE) 

LIBACCESS specifies the way in which a library object code file is 
accessed when a library is called. LIBACCESS has one of the 
mnemonic values BYTITLE or BYFUNCTION. If the value is BYTITLE, the 
TITLE attribute of the library is used to locate the object code 
file. If the value is BYFUNCTION, the value of the FUNCTIONNAME 
attribute of the library is used to access the MCP library function 
table, and the object code file associated with that FUNCTIONNAME is 
used. 

LIBPARAMETER 

(Read/Write, EBCDIC string-valued) 

LIBPARAMETER is used to transmit information from the calling 
program to the selection procedures of libraries that provide entry 
points dynamically. 

TITLE 

(Read/Write, EBCDIC string-valued) 

TITLE specifies the object code file title of the library. (For 
more information, refer to the LIBACCESS attribute.) 
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Example 



The following program shows examples of how the LIBACCESS, TITLE, and 
FUNCTIONNAME library attributes can be used. 



BEGIN 

% LIBRARYl, DECLARED BELOW, IS NOT A SYSTEM LIBRARY. ITS LIBACCESS 
,% ATTRIBUTE, SET TO BYTITLE, INDICATES THAT THE TITLE ATTRIBUTE 
% IS USED TO LOCATE THE LIBRARY'S CODE FILE. 

LIBRARY LIBRARY1(TITLE="0BJECT/LIBRARY1.",LIBACCESS=BYTITLE); 
REAL PROCEDURE PROCl; 

LIBRARY LIBRARYl; 
REAL PROCEDURE PR0C2; 

LIBRARY LIBRARYl; 
REAL PROCEDURE PR0C3; 

LIBRARY LIBRARYl; 

% THE LIBRARY DECLARED BELOW IS A SYSTEM LIBRARY. ITS LIBACCESS 
% ATTRIBUTE. SET TO BYFUNCTION, INDICATES THAT THE FUNCTIONNAME 
% ATTRIBUTE OF THE LIBRARY IS LOOKED UP IN THE MCP LIBRARY FUNCTION 
% TABLE, AND THE CODE FILE ASSOCIATED WITH THE FUNCTIONNAME, 
% SYSTEMLIB, IS USED. . 

LIBRARY LIBRARY2(FUNCTI0NNAME="SYSTEMLIB.",LIBACCESS=BYFUNCTI0N); 
PROCEDURE SYSTEMLIBPROC; 
LIBRARY LIBRARY2; 



<executable statements > 



END, 
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Entry Point Type Matching 



Library entry points can be either typed or untyped, and they can have 
parameters. Type matching is performed on entry points during library 
linkage. If the description of an entry point in the template does not 
match the description of the entry point in the directory, the linkage 
is not made, and the calling program is terminated. Matching is based 
on several factors: the procedure type, the number of parameters, the 
parameter types, and the ways in which the parameters are passed. 
Parameters are passed as call-by-value, call-by-reference, or 
call-by-name. 



An ALGOL library entry point can be any of the following: 

- ASCII string procedure 
Boolean procedure 
Complex procedure 
Double procedure 
EBCDIC String procedure 
Hexadecimal string procedure 
Integer procedure 

Real procedure 
Untyped procedure 

The parameters of an ALGOL library entry point can be any of the 
following: 

Boolean variable, array, or direct array 

Double variable, array, or direct array 

Real variable, array, or direct array 

Integer variable, array, or direct array 

Com.plex variable or array 

EBCDIC string variable or array 

- ASCII string variable or array 
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- Hexadecimal string variable or array 

- EBCDIC character array or direct array 

- ASCII character .array or direct array 

- Hexadecimal character array or direct array 
-• Event variable or array 

- Task variable or array 

- File or direct file 

- Pointer 

- A fully-specified procedure (declared using "FORMAL") with the 
above restrictions on its possible parameters and type 



Parameter Passing 

If a library program declares a parameter to be call-by-name, the 
calling program can declare the parameter to be call-by-name, 
call-by-reference, or call-by-value. If a library program declares a 
parameter to be call-by-reference, the calling program can declare the 
parameter to be call-by-name, call-by-reference, or cali-by-value. If a 
library program declares a parameter to be call-by-value, the calling 
program can declare the parameter only to be call-by-value. 

Table 8-1 illustrates the parameter passing rules. 

Table 8-1. Parameter Passing Rules 







calling Program 




Library Program 


Name 


1 Reference 1 


Value 


Name 


X 


1 • X 1 


X 


Reference 


X 


1 X 1 


X 


Value 






X 
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In ALGOL programs, parameters are declared to be either call-by-value or 
call-by-name. In ALGOL library programs, parameters to entry points 
that are declared to be call-by-value are described in the directory as 
call-by-value; parameters declared to be call-by-name are described in 
the directory as call-by-reference, except for formal procedures and 
Boolean, complex, double, integer, and real variables, which are 
described in the directory as call-by-name. In ALGOL calling programs, 
parameters to entry points that are declared to be call-by-value are 
described in the template as call-by-value; parameters declared to be 
call-by-name are described in the template as call-by-reference, except 
for Boolean, complex, double, integer, and real variables, which are 
described in the template as call-by-name. 



An array parameter in ALGOL that is declared with any of its lower 
bounds as an asterisk (*) lower bound is described in the template or 
directory as N+1 parameters, where N is the number of dimensions of the 
formal array. The first parameter is the array itself, followed by the 
N lower bounds described as call-by-value integer variables. 
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LIBRARY 



This section gives examples of libraries and calling programs that call 
these libraries. 

Library: r>R TFrT/FTLEMAlSTAGER/LIB 

The following library program illustrates dynamic linkage. This library 
provides a set of file management routines. The users of this library 
would assign the title of the file to be used to the LIBPARAMETER 
attribute. LIBPARAMETER is then used at link time to determine to which 
library task the user is to be linked. 

This library represents features of dynamic linkage but does not 
necessarily represent efficient programming. 



$ SHARING = PRIVATE 

^^"^TASK ARRAY LIBTASKS[0: 10]; % PROVIDES UP TO U DIFFERENT LIBRARY 

% TASKS 
STRING ARRAY FILETITLES[ 0: 10] ; % LIBPARAMETER FOR EACH OF THE TASKS 

PROCEDURE FILEMANAGER(TASKINDEX) ; 
VALUE TASKINDEX; 
INTEGER TASKINDEX; 

BEGIN 

PROCEDURE READFILE; 
BEGIN 



END READFILE; 
PROCEDURE WRITEFILE; 
BEGIN 



END WRITEFILE; 

EXPORT READFILE, WRITEFILE; 
FREEZE ( TEMPORARY ) ; 
FILETITLES[ TASKINDEX] := "."; 
END FILEMANAGER; 
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PROCEDURE SELECTION (USERSFILE,MCPCHECK); 

VALUE USERSFILE; 

EBCDIC STRING USERSFILE; 

PROCEDURE MCPCHECK(T); TASK T; FORMAL; 

BEGIN 

INTEGER TASKINDEX; 

BOOLEAN FOUND; 

% LOOK AT ALL THE FILETITLES, CHECKING TO SEE IF A LIBRARY TASK 

% HAS ALREADY BEEN INITIATED FOR FILE TITLE USERSFILE. 

WHILE NOT FOUND AND (TASKINDEX LEQ 10) DO 
BEGIN 
IF FILETITLES [TASKINDEX] = USERSFILE THEN 

FOUND := TRUE 
ELSE 

TASKINDEX := *+l; 
END ; 

IF NOT FOUND THEN 
BEGIN 

% A LIBRARY TASK DOES NOT EXIST FOR THIS FILE TITLE. 
WHILE NOT FOUND DO % FIND AN UNUSED TASK 
BEGIN 

TASKINDEX := 0; 

WHILE NOT FOUND AND (TASKINDEX LEQ 10) DO 
IF LIBTASKS[ TASKINDEX], STATUS LEQ THEN 

FOUND := TRUE 
ELSE 

TASKINDEX :=*+!; 
IF NOT FOUND THEN 

% WAIT A SECOND AND MAYBE A LIBRARY TASK WILL GO TO EOT 
WAIT((1)); 
END; 

PROCESS F I LEMANAGER( TASKINDEX) [ LIBTASKS[ TASKINDEX] ] ; 
WHILE LIBTASKS[ TASKINDEX]. STATUS NEQ VALUE( FROZEN ) DO 

WAIT((1)); 
FILETITLES[ TASKINDEX] := USERSFILE; 
END ; 

MCPCHECK( LIBTASKS[ TASKINDEX] ) ; 
END SELECTION; 
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PROCEDURE READF I LE; 

BY CALLING SELECTION; 
PROCEDURE WRITEFILE; 

BY CALLING SELECTION; 

EXPORT READFILE, WRITEFILE; 
FREEZE (TEMPORARY); 
END. 

At library linkage time, the procedure SELECTION is invoiced. SELECTION 
accepts two parameters, USERSFILE and MCPCHECK. 

USERSFILE is passed the value of the LIBPARAMETER attribute, which was 
assigned a value by the calling program. The SELECTION procedure checRs 
1-0 see if a library task has been initiated for the file specified by 
USERSFILE. If it has, then the calling program is linked to that task. 
If no library task exists for that file, then a new library task is 
initiated and the calling program is linked to it. 

Only one call is made on the SELECTION procedure per linkage; that is, 
all links to entry points in this library are resolved during linkage. 
Therefore, any changes made to any library attributes after linkage is 
made are ignored. The attributes can be changed if the library is 
delinked. 

MCPCHECK is a procedure that is provided by the MCP and must be called 
before exiting the SELECTION procedure. The parameter to MCPCHECK is 
the task variable of the library task to which the calling program is to 
be linked. MCPCHECK verifies that the task is valid and complete. The 
actual library linkage is not performed until SELECTION has been exited. 
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The following calling program invokes the dynamic library 
OBJECT/FILEMANAGER/LIB previously described. In this example, the user 
has set the LIBPARAMETER attribute to "MYFILE", which is the name of the 
file to be accessed. At library linkage time, which occurs during the 
call on READFILE, the library procedure SELECTION is invoked. All links 
to the library's entry points are resolved during linkage. Changes to 
the library attributes are ignored after linkage is made. However, the 
program can delink from the library and change the library attributes 
before any re-linking. 



BEGIN 

LIBRARY L (TITLE="OBJECT/FILEMANAGER/LIB. " ) 
PROCEDURE READFILE; 

LIBRARY L; 
PROCEDURE WRITEFILE; 

LIBRARY L; 



L. LIBPARAMETER := "MYFILE"; 



READFILE; 
CANCEL(L) 



% LINKAGE IS MADE 
% LINKAGE IS BROKEN 



L. LIBPARAMETER := "OTHERFILE"; % LIBPARAMETER CAN BE CHANGED- 

% BECAUSE THE LIBRARY HAS BEEN 
% CANCELED. 



WRITEFILE; 



END, 



% LINKAGE IS MADE AGAIN AND NEW 
% VALUE OF LIBPARAMETER IS USED 
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Library: OBJECT/SAMPLE/LIBRARY 



The following ALGOL library, compiled as OBJECT/SAMPLE/LIBRARY, provides 
its entry points directly. 



BEGIN 

ARRAY MSG[ 0:120]; 

INTEGER PROCEDURE FACT(N) ; 
INTEGER N; 

BEGIN 

IF N LSS 1 THEN 

FACT : = 1 
ELSE 

FACT ;= N " FACT(N - 1); 

END: ■ % OF FACT 

PROCEDURE DATEANDTIME ( TOARRAY .WHERE ) ; 
ARRAY TOARRAY [ * ] ; 
INTEGER WHERE; 

BEGIN 
REAL T; 
POINTER PTR; 

T := TIME(7); 

PTR : = POINTER ( TOARRAY , 8 ) + WHERE : 
CASE T.[5:6] OF 
BEGIN 

0: REPLACE PTR: PTR BY "SUNDAY, "; 
1: REPLACE PTR: PTR BY "MONDAY, "; 
2: REPLACE PTR: PTR BY "TUESDAY. "; 
3: REPLACE PTR: PTR BY "WEDNESDAY, ' 
4: REPLACE PTR: PTR BY "THURSDAY, "; 
5: REPLACE PTR: PTR BY "FRIDAY. "; 
fe: REPLACE PTR: PTR BY "SATURDAY, ": 
END; 
REPLACE PTR BY T.[35:6] FOR 2 DIGITS, 
T.[29:6] FOR 2 DIGITS, 
T. [47:12] FOR 4 DIGITS 
T.[23:6] FOR 2 DIGITS, 
T.[17:6] FOR 2 DIGITS, 
T.[ll:6] FOR 2 DIGITS; 
END; % OF DATEANDTIME 
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EXPORT FACT,DATEANDTIME AS "DAYTIME"; 
REPLACE P0INTER(MSG,8) BY 

" - SAMPLE LIBRARY STARTED", 

" " FOR 94; 
DATEANDT I ME ( MSG ,60); 
DI SPLAY (MSG); 
FREEZE ( TEMPORARY ) ; 

REPLACE POINTER(MSG,8)+19 BY "ENDED "; 
DATEANDT I ME ( MSG ,60); 
DISPLAY (MSG); 
END. 



In this library program, two procedures are exported, mak-ing them entry 
points that can be called by calling programs. The two procedures, FACT 
and DATEANDTIME, are contained witnin the library program, so they are 
provided directly. 



In the EXPORT declaration, the procedure DATEANDTIME is given the name 
DAYTIME in an AS clause. In the directory built for this library, the 
name of this entry point will be DAYTIME. Calling programs must use the 
name DAYTIME to call this entry point. 



Library: OBJECT/SAMPLE/DYNAMICLIB 



The following ALGOL library, compiled . as OBJECT/SAMPLE/DYNAMICLIB, 
illustrates dynamic and indirect library linkage. . This library 
references the library OBJECT/SAMPLE/LIBRARY previously described. 



BEGIN 

TASK LIB1TASK,LIB2TASK; 

LIBRARY SAMLIB(TITLE="OBJECT/SAMPLE/LIBRARY. ") : 

% ENTRY POINT PROVIDED INDIRECTLY 
INTEGER PROCEDURE FACT(N); 
INTEGER N; 

LIBRARY SAMLIB; 

% POSSIBLY CALLED BY THE SELECTION PROCEDURE 
PROCEDURE DYNLIBl: 

BEGIN % PRINTS DATE WITH TIME 

LIBRARY SAMLIB ( TITLE="OBJECT/SAMPLE/LIBRARY . " ) 

% ENTRY POINT PROVIDED INDIRECTLY 

PROCEDURE DAYTIME(TOARRAY,WHERE) : 

ARRAY TOARRAY[*]; 

INTEGER WHERE; 

LIBRARY SAMLIB; 



bll 

Interface to the Library Facility 

EXPORT DAYTIME; 
FREEZE ( TEMPORARY ) ; 
END; % OF DYNLIBl 

% POSSIBLY CALLED BY THE SELECTION PROCEDURE 
PROCEDURE DYNLIB2; 

BEGIN % PRINTS DATE WITHOUT TIME. 

% ENTRY POINT PROVIDED DIRECTLY 

PROCEDURE DAYTIME ( TOARRAY , WHERE ) ; 

ARRAY TOARRAYC*]; 

INTEGER WHERE; 

BEGIN 
REAL T; 
T := TIME(7); 

REPLACE POINTER (TOARRAY, 8) + WHERE 
BY T.[35:6] FOR 2 DIGITS, "-", 

T.[29:6] FOR 2 DIGITS, "-", 

T. [47;12] FOR 4 DIGITS; 
END; % OF DAYTIME 

EXPORT DAYTIME; 
FREEZE ( TEMPORARY ) ; 
END; % OF DYNLIB2 

% THE SELECTION PROCEDURE 

PROCEDURE THESELECTIONPROC(LIBPARSTR,NAMINGPROC); . 

VALUE LI BPARSTR; 

EBCDIC STRING LIBPARSTR; 

PROCEDURE NAMINGPROC(LIBTASK); TASK LIBTASK; FORMAL; 

BEGIN 

IF LIBPARSTR EQL "WITH TIME" THEN 

BEGIN 

IF LIBITASK. STATUS NEQ VALUE ( FROZEN ) THEN 
PROCESS DYNLIBl [LIBITASK]; 

NAMINGPROC( LIBITASK) ; 

DISPLAYC *** CALLING DYNLIBl "); 

END 
ELSE 

BEGIN 

IF LIB2TASK. STATUS NEQ VALUE ( FROZEN ) THEN 
PROCESS DYNLTB2 [LIB2TASK]; 

NAMINGPROC ( LIB2TASK ) ; 

DISPLAY!" *** CALLING DYNLIB2 "); 

END; 
END; % OF THE SELECTION PROCEDURE 
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% ENTRY POINT PROVIDED DYNAMICALLY 
PROCEDURE DAYTIME(TOARRAY,WHERE): 
ARRAY TOARRAY[*J; 
INTEGER WHERE; 

BY CALLING THESELECTIONPROC; 

EXPORT FACT, % PROVIDED INDIRECTLY 

DAYTIME; % PROVIDED DYNAMICALLY 
FREEZE ( TEMPORARY ) ; 
END. 



Callinfi Program #2 



The following calling program invoices OBJECT/SAMPLE/DYNAMICLIB, the 
library described previously. 



BEGIN 

LIBRARY MYLIB(TITLE="OBJECT/SAMPLE/DYNAMICLIB."); 
INTEGER PROCEDURE FAKTORI AL ( N ) ; 
INTEGER N; 

LIBRARY MYLIB(ACTUALNAME="FACT"); 

PROCEDURE DAYTIME(A,W); 
ARRAY A[*]; 
INTEGER W; 

LIBRARY MYLIB; 

REAL T; 

ARRAY DATIME[ 0:120]; 

MYLIB.LIBPARAMETER := "WITH TIME"; 
REPLACE POINTER (DATIME[0], 8) BY 

"13 FACTORIAL IS ", 

FAKT0RIAL(13) FOR 12 DIGITS, 

It _ 11 , 

9 

DAYTIME (DATIME[*], 40); 
DISPLAY(DATIME[0] ) ; 
END. 



In this program, the declaration of the library entry point FAKTORIAL 
specifies that the ACTUALNAME of the entry point is FACT. In the 
template built for the library MYLIB, the name of this entry point is 
FACT, so for linkage to occur, the directory of the library 
OBJECT/SAMPLE/DYNAMICLIB must contain an entry point named FACT. 
However, within the program. the entry point is referred to as 
FAKTORIAL . 
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9 DMSII INTERFACE 

An interface to Burroughs Data Management System II (DMSII) is provided 
in the BDMSALGOL (Burroughs Data Management System ALGOL) language. The 
BDMSALGOL language is based on Burroughs Extended ALGOL and contains 
extensions that enable a programmer to declare and use databases. These 
extensions provide the following capabilities: 

Invoicing a database 

- Manipulating data through data management statements 

- Using database items through a mapping syntax 
Processing exceptions 

Programs written in the BDMSALGOL language must be compiled with^ the 
BDMSALGOL compiler. Typically, this compiler is titled 
"SYSTEM/BDMSALGOL" . 

The extensions to ALGOL that malce up the BDMSALGOL language are 
described in this chapter. 
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9.1 INVOKING A DATABASE 



DATABASE DECLARATION 



Lik-e all variables, a database must be declared in a BDMSALGOL prograin 
before it is referenced. However, a DATABASE declaration is unlike 
other declarations in that it is actually an invocation of a database 
that has already been fully described and declared in a Data and 
Structure Definition Language (DASDL) prograin. 



If the compiler control options LIST and LISTDB, are both TRUE, all 
invoked structures, together with the record formats, item and key 
descriptions, database titles, and other pertinent information, are 
written on the program listing. The LISTDB option should be used, and 
the resulting information studied carefully, when database application 
programs are being developed. For more information on the LISTDB 
option, see "BDMSALGOL Compiler Control Options" in this chapter. 



See also 

<listdb option> , 772 



SynteLK 

<database declaration) 

— DATABASE — <database reference> — | 

<database reference) 

I I I 

I- < internal name> = -| |- <logical database name) OF - 

>-< database name> 

i ! 

I- ( TITLE = "<database title)" ) -! 

> . 



— <data set reference>- 

I 

j-<set reference) 
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< internal nanie> 

— <BDMS identif ier>-- i 

•'logical database name> 

— <BDMS identif ier> — I 

•cdatabase naine> 

— <BDMS identif ier>— i 

(database title> 

A properly formed <file title constant> (as defined in the "Work 
Flow Language (WFL) Reference Manual") that has only one node; that 
IS, that contains no slashes (/). 

<data set reference> 

— ■ — <data set naine>- I 

I .1 I I 

I- < internal name> = -I |- ( <set part> ) -I 

<data set name> 

— <BDMS identifier >— I 

<set part > 

ALL — I 

i ■ . i 

i- NONE — — — I 

i ■ 1 

I |< , -I I 

i I I I 

i- SET <set reference>— I 

i i 
I- SETS -I 

<set reference) 

_. <set narae>--i 

I . i 

I- < internal name> = -! 
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<sGt name> 

— <BDMS identifier> — | 

See also 

<BDMS ldentifier> ^91 

Semantics 



A DATABASE declaration declares a database and specifies which database 
or which parts of a database are to be invoked. If no <data set 
reference> parts and no <set reference^ parts are specified in a 
DATABASE declaration, then all data sets and all sets for each data set 
are implicitly invoiced. 



The <internal naine> construct assigns an internal name by which a 
database, data set, set, or subset is known within the program. When an 
internal name is specified, all subsequent references to the structure 
must use this internal name. 



A database, data set, set, or subset can be invoked more than once; 
however, the external name (the name in the description file) can be 
used to reference only one invocation of a structure. Internal names 
must be used to provide unique names for all other invocations of a 
structure. The default internal name of a structure is its external 
name . 



By using the internal names in the <data set reference> or the <set 

reference> constructs, multiple record areas or set paths can be 

established. Thus, several records of a single data set can be 
manipulated simultaneously. 



The <logical database name> construct allows the program to reference a 
-ogical database. A program can invoke structures selectively from a 
logical database, or it can invoke the entire logical . database. 
Selective invocations are specified in the same manner as for physical 
databases: however, the choice of structures is limited to those 
structures included in the logical database. 



The <database name> gives the external name of the database to be 
invoked. 
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The <database titlex construct is an alphanumeric string. The usercode, 
if any, is the usercode of the control file. The single node of the 
title is the directory node under which the database files are stored. 
The family name, if any, is the family name of the control file. The 
default database title is the external name of the database plus the 
control file usercode. and family name, if any, from the description 
file. When opening the database, the Master Control Program (MCP) 
builds the control file title from the database title specified in the 
declaration. See the "DMSII DASDL Reference Manual" for a discussion of 
control files and description files. 

This title equation is used only at run time, and cannot be used at 

compile time to specify the title of the database description file. The 

primary use of the <database title> construct is for modeling. See the 
"DMSII DASDL Reference Manual" for a description of modeling. 

The <data set reference> construct specifies a particular data set from 
the declared database. If a <data set reference) is used, only the 
specified structures are invoked. A data set reference must be used to 
invoke a disjoint data set. 



The <data set name> construct gives the external name of the data set to 
be invoked. 



The <set part> construct invokes specific sets from the data set 
declared in the <data set reference) that contains it. If the <set 
part> construct is omitted, all sets are implicitly invoked. If the 
<set part> construct is used, all sets (ALL), no sets (NONE), or only 
the specified sets are invoked. 

The <set reference) construct establishes a set that is not implicitly 
associated with any particular record area. To load a record area using 
the set name specified in a set reference, The "<data set> VIA" form of 
the <selection expression) must be used. 

The <set name) construct gives the external name of the set to be 
invoked. 
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Only disjoint structures can be explicitly invoked. Embedded data sets, 
sets, and subsets are always implicitly invoked if their master data 
sets are (implicitly or explicitly) invoked. When a data set containing 
an embedded set associated with a disjoint data set is invoked, or a 
data set containing a link to another, disjoint data set is invoked, then 
a path is established. However, the user must invoke the disjoint data 
set if it is to be used. 



Multiple invocations of a structure provide multiple record areas or set 
paths, or both, so that several records of a single data set can be 
manipulated simultaneously. Selecting only needed structures for UPDATE 
and INQUIRY provides better use of system resources; a smaller Structure 
Information Block (SIB) is required, and fewer files can be opened. 



If remaps are declared in DASDL, they are invoked in the same manner as 
conventional data sets. 



Examples: Simple Database 



The following examples apply to the database DB described by the 
following DASDL description: 

D DATA SET ( 

K NUMBER (6); 
R NUMBER (5): 
); 

51 SET OF D KEY K: 

52 SET OF D KEY R: 



DATABASE DB: D 

This declaration establishes one current record area for the data 
set D, one path for the set SI of data set D, and one path for the 
set S2 of data set D. The statements "FIND SI", "MODIFY SI", "FIND 
S2", and "MODIFY S2" automatically load the data into the D record 
area . 
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DATABASE DB: D, X=D (NONE) 



This declaration establishes two current record areas (D and X) and 
two paths (SI and S2). The sets SI and S2 are implicitly associated 
with the D record area. The set part NONE prevents a set from being 
associated with X. Thus, the statements "FIND SI" and "FIND S2" 
load the D record area. The statements "FIND X VIA SI" and "FIND X 
VIA S2" must be executed to load the X record area using *a set. 



DATABASE DB: D, X=D 

This declaration shows how multiple current record areas and 
multiple current paths can be established. The statement "FIND SI 
OF D" loads the D record area without disturbing the path SI OF X, 
and the statement "FIND SI OF X" loads the X record area without 
disturbing the path SI OF D. Qualification of SI is necessary to 
distinguish the paths. 

DATABASE DB: D (SET SI), X=D (SET SI), Y=D (NONE) 

This declaration shows how more current record areas than paths can 
be established. Three record areas (D, X, and Y) are established, 
but only two paths (SI OF D, and SI OF X). The program must execute 
the statement "FIND Y VIA SI OF D" , "FIND Y VIA SI OF X", or "FIND 
Y" to load the Y record area. 



DATABASE DB: X=D (SET SI), Y=D (SET T=S1) 

This declaration uses the < set part > syntax to explicitly associate 
a set with a given work area. The statement "FIND SI" loads the X 
record area, and the statement "FIND T" loads the Y record area. SI 
and T both use the same key. 



DATABASE DB: D, SY=S1 

This declaration shows how a set reference can be used to establish 
a set that is not implicitly associated with any particular record 
area. The statement "FIND D VIA SY" must be executed to load a 
record area using the set SI. 
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Example: Invoking Disjoint Data Sets 



The following example shows when a data set reference must be used to 
invoice disjoint data sets. The database DB is described by the 
following DASDL description: 

F DATA SET ( 

FI NUMBER (4); 

); 

E DATA SET ( 

EK NUMBER (8); 

): 
D DATA SET ( 

A NUMBER (6); 

SE SET OF E KEY EK; 

LINK REFERENCE TO F; 

); 



If data set references are not specified to invoke E and F, as in the 
declaration 

DATABASE DB: D 

the paths are established by invoking the embedded set SE and the link, 
item LINK. However, these paths cannot be used unless data set 
references for E. and F are specified to establish record areas 
associated with these paths, as in the declaration 

DATABASE DB: D,E,F 
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Example: Invoking a Logical Datat>ase 

In this example, the database EXAMPLEDB is described by the following 
DASDL description: 

Dl DATA SET ( 
A REAL; 
B NUMBER (5);; 
C ALPHA (10);; 

): 

SIA SET OF Dl KEY IS A; 
SIB SET OF Dl KEY IS (A,B,C); 
D. DATA SET ( 
X FIELD (8); 
Y NUMBER (2): 
Z REAL; 
E DATA SET ( 
VI REAL ; 
V2 ALPHA (2); 

): 
SE SET OF E KEY IS VI; 

) ; 

S2A SET OF D2 KEY IS X; 

S2B SET OF D2 KEY IS (X,Y,Z); 

LDBl DATABASE ( Dl( NONE ) , D2 ( SET S^S2A ) ) ; 

LDB2 DATABASE (Dl( SET S1=S1B) , D2(SET S2=S2B)); 

LDB3 DATABASE (D=D2); 
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The following BDMSALGOL program invoices the logical database LDBl of 
EXAMPLEDB. The program can see data sets Dl and D2, but not any of the 
sets associated with Dl, and can see only set S2A associated with D2. 
S2A appears as set S. The output produced by the LISTDB compiler 
control option is shown with the program. 



$ SET LIST LISTDB 
BEGIN 

DATABASE LDBl OF EXAMPLEDB: 
*DATABASE TITLE: EXAMPLEDB ON DISK 
*01 Dl: DATA SET (#2) 

* INVOKED SETS: 

* RECORD ITEMS: 
*02 REAL A 

*02 INTEGER B: NUMBER (5) 

*02 STRING C: ALPHA (10) 

*01 D2: DATA SET (#5) - 

* INVOKED SETS: 

* S (#8, AUTOMATIC), KEY = X 

* RECORD ITEMS: 

*02 REAL X: FIELD (8) 
*02 INTEGER Y: NUMBER (2) 
*02 REAL Z 
*02 E: DATA SET (#6) 

* INVOKED SETS: 

* SE (#7, AUTOMATIC), KEY = VI 

* RECORD ITEMS: 
*03 REAL VI 

*03 STRING V2: ALPHA (2) 

*DESCRIPTION TIMESTAMP: 06/09/82 @ 17:30:34 
END. 
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DATABASE EQUATION 



The term "database equation" refers to three separate operations: 

1. Specification of database titles during compilation. 

2. Work Flow Language (WFL) database equation to override 
compiled-in titles. (For more information, refer to the "DMSII 
User Language Interface Software Operation Guide" for the WFL 
syntax.) 

3. Run-time manipulation of database titles. 



To take advantage of the fe-entrance capability of the Accessroutines , 
the user must be able to specify the title of a database at run time. 
Database equation allows the database title to be specified at run time, 
and allows access to databases cnat are stored under other usercodes and 
on families that are not visible to a task. 



Database equation is operationally similar to file equation. WFL 
database equation overrides the specification of a database title in the 
DATABASE declaration, and run-time modification of a database title 
overrides both WFL database equation and the DATABASE declaration. 
However, database equation differs from file equation in that a run-time 
error results if a BDMSALGOL program attempts to assign a value to or 
examine the TITLE attribute of a database while it is open. For an 
explanation of the TITLE database attribute, refer to "DATABASE 
Declaration" in thijs chapter. 



The following syntax shows how the database TITLE attribute can be 
manipulated during program execution. 



Syntax 

<database attribute assignment statement > 

— <string-valued database attribute>~ := — <string expression>- 

< string-valued database attribute > 

— <internal name> — . — TITLE -- j 



See also 

< internal name> ,, . . 681 
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The string expression must evaluate to a string in the form of a 
database title. 



The <string-valued database attribute> construct can be used anywhere a 
string expression is valid. 



Database titles never end with a period, and a replace pointer-valued 
attribute statement is not valid for making assignments to database 
titles. 



Exeimple 



NOTE 

BDMSALGOL programs employing database 
equation must be compiled with a Mark 3.2 
or later BDMSALGOL compiler. 



BEGIN 

STRING S; 

DATABASE MYDB ( TITLE="LIVEDB" ) : 

OPEN UPDATE MYDB; 

CLOSE MYDB: 

MYDB. TITLE ;= "(UC)TESTDB ON TESTPACK"; 

OPEN UPDATE MYDB; 

CLOSE MYDB; 

S := TAKE ( MYDB. TITLE,5); 



END, 



In this example, the first BDMS "OPEN" statement opens the database with 
the title "LIVEDB" , whose data and control files are stored under the 
user's directory. The second OPEN statement invokes the database 
"TESTDB", whose files are stored on TESTPACK under the usercode UC. 
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9.2 BDMSALGOL BAS IC LANGUAGE CONSTRUCTS 



The following constructs are used within the DATABASE declaration and in 
data management statements and functions. These sections describe the 
forms of names for databases, data sets, sets, items, and so on; input 
mapping and output mapping; and the selection expression. 



9.2.1 BDMS IDENTIFIERS AND QUALIFICATION 



Naming conventions in DASDL for databases and their components follow 
COBOL rules: that is, names can contain hyphens, and . some item and 
structure names can require qualification. Although both of these 
conventions contradict normal ALGOL naming rules, they must be allowed 
in programs that declare and use databases. 



BDMS IDENTIFIERS 



The identifier of a database, data set, set, item, and so on is in the 
form of a <BDMS identifier). 



Syntax 

<BDMS identifier) . 

I I 
<identifier> I 

Semantics 

The <BDMS identifier) construct must be fewer than 64 characters long, 
Examples 

If a database is described in DASDL by the following: 

D-S DATA SET ( 

A-1 NUMBER (5); 
A- 2 NUMBER (10); 
); 
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then in a BDMSALGOL program, the data set D-S and the items A-l and A- 
can be- referenced as in the following examples: 

INTEGER I; 
. GET D-S (I := A-1); 
PUT D-S (A-2 := I);- 



IDENTIFIERS OF OCCURRING ITEMS 



If an item is declared in the DASDL description to have an OCCURS 
clause, then its identifier must be subscripted to denote which of its 
occurrences is to be used. 



Syntax 

< subscripted. BDMS identifier) 

|< , -. I 

I I 
— <BDMS identifier) — [ xarithmetic expression) ] 

Semantics 



The leftmost arithmetic expression denotes the subscript of the 

outermost OCCURS clause that affects the item, the next arithmetic 

expression to the right denotes the subscript of the next outermost 
OCCURS clause, and so on. 
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Examples 

If items A and B are described in DASDL as follows 

DS DATA SET ( 
G GROUP ( 

A ALPHA (10): 

B NUMBER (4) OCCURS 3 TIMES; 

): 

OCCURS 2 TIMES; 

); 

there are two occurrences of A, denoted 

A[i] • A[2] . 

and there are six occurrences of B, denoted 

B[l,l] B[2.13 
B[l,2] B[2,23 
B[1.3] B[2,3] 

QUALIFICATION 



Database item names need not be unique within a database. Qualification 
is used to distinguish between database items with the same names. 



Syntax 

<qualif ication> 

I < .___ — OF ^— — . 

I 

<BDMS identif ier >-■ -— — -■ 

i 

t-<subscripted BDMS identifiers- 



Semantics 



An item name can be qualified by the name of any structure that 
physically contains the item. Any number of qualification names desired 
can be used, provided that the result is unique. If improper or 
insufficient qualification is used, a syntax error is given. 
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A set name- can be qualified by the name of the data set it spans. 

A group name can be used to qualify an item it contains. 

Qualification need not be used if the unqualified name is unique. 
Qualification must be used whenever there is ambiguity. A variable name 
can be declared with the same name as a database item in BDMSALGOL 
without requiring qualification of the item name. 

Excunples 

If a database is described in DASDL as follows: 

DSl DATA SET ( 
N NUMBER (4); 

); 

DS2 DATA SET ( 
N NUMBER (4); 

); 

then the following BDMSALGOL statements indicate how qualification is 
used to distinguish between the two data items named N. 

SET N OF DSl TO NULL; 
SET N OF DS2 TO NULL; 
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9.2.2 REFERENCING DATABASE ITEMS 



The record area (user work, area) is not directly accessible to a 
BDMSALGOL program. Instead, an explicit mapping between database data 
items and program variables must be specified whenever access to those 
items is desired. 



Mappings specify the source and destination of data to be transferred 
into or out of a user work area. Mappings are of two kinds: input 
mappings and output mappings. 



Example 



If a database is described in DASDL by the following: 

Dl DATA SET ( 
A NUMBER (5); 

X NUMBER (5) OCCURS 3 TIMES; 
): 

then the items of data set Dl can be referenced in the following ways 

INTEGER B,yi,Y2,Y3; 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUE OF DATABASE ITEM A 

% TO THE LOCALLY DECLARED INTEGER B. 

GET Dl (B := A); 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUE OF LOCALLY DECLARED 
% INTEGER B TO THE WORK AREA FOR Dl. 
PUT Dl (4 := B): 

% THE FOLLOWING STATEMENT TRANSFERS THE VALUES OF ALL THREE 
% OCCURRENCES OF X INTO Yl, Y2 , AND Y3. 



GET Dl (Yl 


:= X[l], 


Y2 


:= X[2], 


Y3 


:= X[3]); 



% THE FOLLOWING STATEMENT TRANSFERS THE VALUES OF LOCALLY DECLARED 
% INTEGERS Yl, Y2 , AND Y3 INTO THE THREE OCCURRENCES OF DATABASE 
% ITEM X. 
PUT Dl (X[l] :== Yl, 

X[2] :== Y2, 

X[3] :== Y3); 
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INPUT MAPPING 

Input mappings can be used with the "retrieval" statements DELETE, FIND, 
GET, BDMS "LOCK," and MODIFY. Input mappings transfer the value of a 
DASDL-declared data item to a program variable. If the data item is an 
occurring item (that is, if the item is declared in DASDL with an OCCURS 
clause), it must be subscripted appropriately. 



SyntSLX 



< input mapping> 



< input assignment > 



<input assignment > 

<arithmetic variable>- 



-<Boolean variable> — 
-<pointer variable> — 



:= <count item name> 

<field item name> 

l-<numeric item name> 

■-< population item name> — 

-<real item name> 

-< record type item name>- 
— <Boolean item name> ■ 



= <alpha item name>- 



i-< group item name> — 

I 

|-<numeric item name>- 
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<alpha item name> 

<Boolean item name> 

< count item name> 

< field item name> 

< group item name> 

< numeric item name> 

< population item name> 

<real item name> 

< record type item name> 



^^<BDMS identifier > 

I 

|-<subscripted BDMS identifier >■ 



See also 

<arithmetic variable> ............ 225 

<BDMS identifier) ^91 

<Boolean variable) 234 

<pointer variable). 241 

<subscripted BDMS identifier) ^92 



Semantics 



An arithmetic variable can be an integer, real, or double simple or 
subscripted variable. A Boolean variable can be a Boolean simple or 
subscripted variable. A pointer variable can be a pointer identifier or 
an element of a character array. 



<arithmetic variable> := <field item name> 

If the field item is defined to contain N bits, then N bits are stored 
right-justified in the arithmetic variable. All other bits are set to 
zero. 



<arithmetic variable> := <numeric item name> 
<arithmetic variable> := <real item name> 

The numeric item or real item is converted into a binary value with a 
scale factor of zero (its true value). The value is stored in the 
arithmetic variable as in a normal arithmetic assignment; that is, it is 
integer ized or extended, if necessary. An error termination results if 
necessary integerization is not possible, as in normal ALGOL arithmetic 
assignments. 
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orithmetiG variable> 
<arithinetlc variable> 
<arithmetic variable> 



= < count item name> 

= < population Item name> 

= < record type item name> 



The value of the count item, population item, or record type item is 
placed in the arithmetic variable. Use of a count item, population 
item, or record type item allows read-only access to the particular 
field. Those items cannot be changed directly. They are accessed only 
through input mappings, and cannot be used in output mappings. 



<Boolean variable > := < Boolean item name> 



The Boolean variable is assigned the truth value (the value of bit 0) of 
the Boolean item. Bits 1 through 47 of the Boolean variable are set to 
zero. 



<pointer variable> : 
<pointer variable > : 



= < alpha item name> 
= < group item name> 



If the alpha item or group item is defined to contain N EBCDIC 
characters, then N characters are transferred to the location pointed to 
by the pointer variable. A fault results if one of the following 
conditions is satisfied: 

1. The pointer is uninitialized. 

2. The pointer is not an EBCDIC (8-bit) pointer. 

3. Fewer than N character positions remain in the referenced 
array. 



A group item is treated as if it were an alpha item; all subordinate 
data items are transferred without change. 
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<pointer variable> :== <numeric item name> 

This assignment takes advantage of the fact that a numeric item is 
maintained as a hexadecimal string. If the numeric item is defined to 
contain N digits (including the sign digit, if specified), the N 
hexadecimal characters are transferred to the location pointed to by the 
pointer variable. A fault results if one of the following conditions is 
satisfied: 

1. The pointer is uninitialized. 

2. The pointer is not a hexadecimal (4-bit) pointer. 

3. Fewer than N hexadecimal character positions remain in the 
referenced array. 
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Output mappings can be used with the "storage" statements PUT and STORE. 
Output mappings transfer the value of a program variable or expression 
to a DASDL-declared data item. If the data item is an occurring item 
(that is, if the item is declared in DASDL with an OCCURS clause), it 
must be subscripted appropriately. 



Syntax 



<output mapping > 
i< 



<output assignment> 



<output assignment> 

<field item name> 

-<numeric item name>-| 

I 
-<real item name> | 

-< Boolean item name> — 

-<alpha item name> 

I 

-<group item name> i 

I 

-<numeric item name>-i 



— <arithmetic expression> 



•<Boolean expression > 

— <pointer expression> — 

i 

|-<string literal> 



See also 

<alpha item name> 697 

< Boolean item name> ...... 697 

<f ield item name> 697 

< group item name> .69 7 

^numeric item name) 6 97 

<numeric item name> ....... 697 

<real item name> 697 



DMSII Interface 



Semantics 
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An arithmetic expression used 
precision or double precision. 



m 



an output mapping can be single 



< field item name> 



< arithmetic expression > 



If the field item is defined to contain N bits, then the N rightmost 
bits of the value of the arithmetic expression are assigned, unaltered, 
to the field item. Care should be taken if the arithmetic value is real 
or double precision, (that is, not integer) because the value might be 
normalized, in which case the N rightmost bits would not contain the 
value. 



<numeric item name> 
<real item name> 



= < arithmetic expression > 
= <arithmetic expression > 



The value of the arithmetic expression is scaled appropriately and 
assigned to the numeric item or real item. If the numeric item or real 
item is unsigned, the absolute value of the arithmetic expression is 
used. 



< Boolean item name> ::= < Boolean expression > 



The truth value (the value of bit 0) of the Boolean expression is 
assigned to the Boolean item. Bits 1 through 47 of the value of the 
Boolean expression are ignored. 



<alpha item name> := <pointer express ion > 
<group item name> := <pointer expression> 



If the alpha item or group item is defined to contain N EBCDIC 
characters, then N characters are transferred from the location pointed 
to by the pointer expression to the alpha or group item. A fault 
results if any of the following conditions is satisfied: 

1. The value of the pointer expression is an uninitialized 
pointer. 

2. The value of the pointer expression is not an EBCDIC (8-bit) 
pointer . 

3. Fewer than N character positions remain in the referenced 
array. 
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< numeric item name> :- < pointer expression> 



This mapping takes advantage of the fact that a numeric item is 
maintained as a hexadecimal string. If the numeric item is defined to 
contain N digits (including the sign digit, if specified), then N 
hexadecimal characters are transferred to the numeric item from the 
location pointed to by the pointer expression. The user is responsible 
for ensuring that the string is a valid representation of the item 
declared in DASDL; that is, the proper sign and numeric characters, in 
the proper format, must be used. A fault results if any of the 
following conditions is true: 

1. The value of the pointer expression is an uninitialized 
pointer. 

2. The value of the pointer expression is not a hexadecimal 
(4-bit) pointer. 

3. Fewer than N hexadecimal character positions remain in the 
referenced array. 



<alpha item name> := <string literal> 
<group item name> := <string literal > 



The string literal is transferred to the alpha item or group item. The 
string literal must be EBCDIC, or a syntax error -results. If the string 
literal is shorter than the alpha item or group item, it is extended 
with blank fill characters on the right. If the string literal is 
longer than the alpha item or group item, the excess characters on the 
right are truncated. 



<numeric item name> := <string literal > 



The string literal is transferred to the numeric item. The string 
literal must be a hexadecimal string and must contain the exact number 
of characters for the numeric item or a syntax error results. The user 
is responsible for ensuring that the string literal is a valid 
representation of the numeric item. 
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9 .2.3 THE SELECTION EX PRESSION 



A selection expression is used in DELETE, FIND, BDMS "LOCK," and MODIFY 
statements to identify a particular record in a data set. 



Syntax 



< select ion express ion > 

<set selection expression >■ 

I II 
-<data set>— VIA -| |-<link itein> 

-<data set> ■ ■-- 

I 

- FIRST -I 

- LAST — 

- NEXT — 
PRIOR - 



<data set> 

— <qualif ication> — i 



<set selection expression) 

. --<set> 

I I 

- FIRST ~l I -< subset >■ 
. i 

- LAST —I 

- NEXT --i 



AT <Rey condition)- 

I 
WHERE -I 



- PRIOR - 



<;set > 



— <qualif ication;--- 
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< subset > 

— <qualif ication> — i 

<lcey condition) 

|< AND I 

I I I t 

I |<- OR --I I 

I I 
<numeric relation) I 

I 
-<alphanumeric relation) 1 

i 

( — <k.ey condition) — ) -| 

t 
- NOT -I 

<numeric relation) 

<numeric item identifier) <relational operator)- 

I I 

!-<field item identifier) | 

I I 

|-<real item identifier) | 

> <arithmetic expression) 

I I 

|-<pointer expression) | 

<numeric item identifier) 
<field item identifier) 
<real item identifier) 

— <BDMS identifier) — I 

<alphanumeric relation) 

— <alpha item identifier) — <relational operator) 

> <constant string expression) 

! . I 

i -<pointer expression) ! 

<alpha item identifier) 

— <BDMS identifier) — I 
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<link item> 

— <qualif ication> — ! 



See also 

<BDMS identifier > 691 

<constant string expression) 525 

<qualif ication> . . . . . . .... . ;• • ^^2 

<relational operator) • ^*53 



Semantics 



A set selection expression selects the record to which the set path 
refers. A NOTFOUND exception is returned if the record has been deleted 
or if the path does not refer to a valid current record. 

The construct "<data set> VIA" identifies the record area and current 
path to be affected if the desired record is found. This option is used 
for link Items and for sets that are not implicitly associated with the 
data set. 



The <llnfc itein> form is used to specify a link item defined in the DASDL 
description. The record to which the link item refers is selected. An 
exception is returned if the link item is NULL. 

The <data set> form is used to selept the record to which the data set 
path refers. A NOTFOUND exception is returned if the record has been 
deleted or if the path does not refer to a valid current record. 



The word "FIRST" selects the first record in the specified data set, 
set, or subset. If a key condition is also specified, the first record 
of the specified set or subset that satisfies the key condition is 
selected. FIRST is assumed by default. 



The word "LAST" selects the last record in the specified data set, set, 
or subset. If a key condition is also specified, the last record of the 
specified set or subset that satisfies the key condition is selected. 

The word "NEXT" selects the next record relative to either the set path 
(if a set or subset is specified) or the data set path (if a data set is 
specified). If a key condition Is also specified, the next record 
(relative to the current path) of the specified set or subset that 
satisfies the key condition is selected. 
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The word "PRIOR" selects the prior record relative to either the set 
path (if a set or subset is specified) or the data set path (if a data 
set is specified). If a key condition is also specified, the prior 
record (relative to the current path) of the specified set or subset 
that satisfies the key condition is selected. 



In a set selection expression, the <set> or <subset> construct selects 
the record to which the set or subset path refers. A NOTFOUND exception 
is returned if the record has been deleted or if the path does not refer 
to a valid current record. 



The words "AT" or "WHERE" indicate that a key condition follows. AT and 
WHERE are synonyms . 



A key condition specifies values used to locate specific records in a 
data set referenced by a particular set or subset. If the name of a 
data item specified in a key condition is not unique, the compiler 
provides implicit qualification through the set or subset of the set 
selection expression. Qualification of the item name by the name of the 
data set that contains the item, while not necessary, is allowed; 
however, the compiler handles this qualification as documentation only. 



The expressions that appear in a key condition cannot contain any 
transaction item references. 



A numeric relation specifies a particular numeric, field, or real item 
and compares it to the value of an arithmetic expression or a pointer 
expression. The pointer expression must evaluate to a hexadecimal 
pointer. 



An alphanumeric relation specifies a particular alpha item and compares 
it to the value of a constant string expression or a pointer expression. 
The pointer expression must evaluate to an EBCDIC pointer. The constant 
string expression must be an EBCDIC string. 



Excunples 



These examples use the database described in DASDL by the following: 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (5); 

); 

S SET OF D KEY IS N, DATA A: 
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LOCK S WHERE N NEQ 10 



This LOCK statement acts upon the first S where the value of N is 
not equal to 10. 



FIND S AT A = "ABC" AND (N = 50 OR N = 90) 

This statement locates the first S where A is equal to the string 
"ABC" and either N is equal to 50 or N is equal to 90. 
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9.3 BDMSALGOL STATEMENTS 



The following data management statements allow a 
use and manipulate the data in a database, 
described in this section. 



BDMSALGOL program to 
These statements are 



<assign statement> 
<begintransaction statement > 
<BDMS close statement > 
< create statement > 
<delete statement> 
<dmterminate statement.> 
<endtransaction statement > 
<find statement> 
<BDMS free statement > 
< generate statement > 
<get statement > 



<insert statement) 
<BDMS lock statement > 
<midtransaction statement) 
<modify statement) 
<BDMS open statement) 
<put statement) 
<recreate statement) 
< remove statement) 
<BDMS set statement) 
<store statement) 
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ASSIGN STATEMENT 



The ASSIGN Statement establishes a link from one record in a data set to 
another record of the same data set. It assigns either the value of the 
current record in a data set or the value in a link, item to another link 
item. The value of the second link item., called the target link item, 
then allows the system to locate the record in the referenced data set. 



The ASSIGN statement is effective immediately, therefore the record 
containing the target link item does not need to be stored unless data 
items of this record have been modified. 



Syntax 

<assign statement > 

— ASSIGN — <data set> TO — <link item>- 

i I 

I- NULL I 

t I 

|-<link item>-| 



|-<exception handling>- 



See also 

<data set> „ . . . 703 

<exception handling) 768 

<link item) 705 



Semantics 



The data set must be declared in DASDL as the object data set of the 
target link item. A value that points to the current record in the data 
set is assigned to that link item. 



If the <data set> form is used, the current path of the specified data 
set must be valid, but the record need not be locked. If the data set 
path is not valid, an exception occurs. 
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If the word "NULL" is used, the relationship between records is severed 

by assigning a NULL value to the target link item. If that link item is 

already NULL, this option is ignored. A FIND, BDMS "LOCK," or MODIFY 
statement on a NULL link item results in an exception. 



If the ASSIGN statement specifies two link items, the value of the first 
link item is assigned to the target link item. The first link item must 
be declared in DASDL to have the same object data set as the target link 
item and be the same type of link (counted link, self-correcting link, 
symbolic link, unprotected link, or verified link). If the link items 
are counted links, the count item is automatically updated, even if the 
record that is referenced is locked by another program. 



The current path of the data set containing the first link must be 
valid, but the record need not be locked. If the data set path is not 
valid, an exception occurs. 



After the ASSIGN statement has executed, the target link item points to 
either the current record in the specified data set or to the record 
pointed to by the first link item. 



The current path of the data set containing the target link item must be 
valid, and the record must be locked; otherwise, an exception occurs. 

If the target link item references a disjoint data set. then that link 
item can point to any record in the data set. If the target link item 
references an embedded data set, then only certain records in the data 
set can be referenced. In this case, the record being referenced must 
be owned by the record containing the target link item or by an ancestor 
of the record containing this link item. (An ancestor is the owner of 
the record, the owner of the owner, and so forth.) 



If an exception is returned, the ASSIGN statement is not completed, and 
a NULL value is assigned to the target link item. 
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Ejcample 



If the database, EXAMPLEDB is described InDASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
L IS IN E VERIFY ON N', 

) : 
S SET OF D KEY A; 

E DATA SET ( 

N NUMBER ( 3 ) ; 
R REAL; 

): 

T SET OF E KEY N; 

then the following BDMSALGOL program uses the ASSIGN statement to assign 
the value of the current record of data set E to link item L. 



BEGIN 

FILE CARD_F I LE( KIND-READER); 
DATABASE EXAMPLEDB; 
EBCDIC ARRAY X[0:2];; 
INTEGER Y; 

OPEN UPDATE EXAMPLEDB; 

WHILE NOT READ(CARD„FILE,<A3,I3>,X,Y) DO 

BEGIN 

FIND S AT A = X; 
FIND T AT N = Y; 
ASSIGN E TO L; 
END ; 
CLOSE EXAMPLEDB: 
END. 
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BEGIKTRAySACTIOH STATEMENT 



The BEGINTRANSACTION statement places a program in transaction state, 
This statement can be used only with audited databases. 



The BEGINTRANSACTION statement performs the following steps in order: 

1. Captures the restart data set if AUDIT is specified 

2. Places a program in transaction state 



Refer to the "DMSII User Language Interface Software Operation Guide" 
for further details regarding audit and recovery. 

Syntax 



<begintransaction statement > 

— BEGINTRANSACTION ■ . 

I 

I- ( — <transaction record variable> — ) - 

! 

I- AUDIT 

I 

i- NOAUDIT — 

>-<restart data set> . 

I I 

|-<exception handling>-| 



<transaction record variable> 

The <transaction record variable> syntax is defined in the "DMSII 
Transaction Processing System (TPS) Programmer's Manual." 



<restart data set> 

— <qualif ication> — | 

See also 

<exception handling> 768 

<qualif ication> . * * ' 693 
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Semantics 



If the /transaction record variable> construct is used, it is the formal 
input transaction record variable, and NGAUDIT is the default action. 



The word "AUDIT" causes the restart area to be captured. The path of 
the specified restart data set is not altered when the restart record is 
stored. AUDIT is the default action. 



The word "NOAUDIT" causes the restart area to not be captured. The 
< restart data set> construct specifies the restart data set to be 
updated. 

An exception is returned if the BEGINTRANSACTION statement is attempted 
v;hile the program is in transaction state. 



If any exception is returned, the program is not placed in transaction 
state. If an ABORT exception is returned, all records that the program 
had locked are freed. 



Pragmatics 

Deadlock can occur during execution of a BEGINTRANSACTION statement 



Any attempt to modify an audited database when the program is not in 
transaction state results in a fault. The BDMSALGOL statements that 
modify databases are the following: 

ASSIGN statement 
DELETE statement 
GENERATE statement 
INSERT statement 
REMOVE statement 
STORE statement 
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Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS(AUDIT); 

R RESTART DATA SET ( 

P ALPHA (10): 

Q ALPHA (100); 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3); 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the 
BEGINTRANSACTION statement can be used. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE ; 
EBCDIC ARRAY MY_A[0:2]; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N := 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 

BEGINTRANSACTION R; 

STORE D; 

ENDTRANSACTION R; 

MY_N := * + 1; 

END; 
WHILE NOT READ(CARD_FILE,<I3,A3>,MY_N,MY_A[0]) DO 

BEGIN 

LOCK S AT N = MY_N; 

BEGINTRANSACTION R; 

PUT D (A := MY_A[0]); 

STORE D; 

ENDTRANSACTION R; 

END ; 
CLOSE DBASE; 
END. 
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BDMS CLOSE STATEMENT 



The BDMS "CLOSE" statement closes a database when further access is no 
longer required. 

The CLOSE statement performs the folloiwing steps in order: 

1. Closes the database 

2. Frees all locked records 

Syntax 

<BDMS close statement> 

— CLOSE ~<database identifier > • I 

I I 

|-<exception handling>-i 

<database identifier)' 

~<BDMS identifier >^ — I 



See also 

<BDMS identif ier> . . . ... . . • • • • • • • • • ^^ 

<exception handling>. ... .........••• 



Semantics 

The database identifier specifies the database to be closed. If the 
database was declared to have an internal name, this Internal name is 
the database identifier. If the database does not have an internal name 
but is a logical database, then the logical database name is the 
database identifier. If the database does not have an internal name and 
it is not a logical database, then the database name is the database 
identifier. 

An exception is returned if the specified database is not open. 
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Use of the CLOSE statement is optional; the 
database at the time a program terminates. 



system closes any open 



The CLOSE statement is the only BDMSALGOL statement in which the status 
word has meaning when no exception is indicated. Therefore, after a 
CLOSE statement, the status word should be examined by the program and 
appropriate action taken, whether or not an exception is returned. An 
ABORT exception can be obtained in this manner. 



Example 



If the database DBASE is described in DASDL as follows 

OPTIONS(AUDIT); 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 

A ALPHA (10); 

B BOOLEAN; 

N NUMBER (3); 

); 

S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR: 



then the following BDMSALGOL program shows 
statement to close DBASE. 



how to use the CLOSE 
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BEGIN 

FILE CARD_FILE(KIND=READER), 

PRINT.FI LE ( KIND=PRINTER ) ; 
DATABASE DBASE ; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0: 2]: 

OPEN INQUIRY DBASE; 

WHILE NOT READ ( CARD_FILE , < 1 3 > , MN ) DO 
BEGIN 

FIND S AT N = MN; 
GET D (MA[Oj :== A. MB := B); 
IF MB THEN 

GET D (MR :=v N) 
ELSE 

MR : = ; 
WRITE(PRINT_FILE, <I3," ">A3," " ,L5 , 'V " .E4. 2> , 

MN,MA[0]„MB,MR); 
END; 
CLOSE DBASE; 
END. 
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CREATE STATEMENT 



The CREATE Statement initializes the user work area of a data set 
record. 



The CREATE statement performs the following steps in order: 

1. Frees the current record of the specified data set 

2. Reads any specified expression to determine the format of the 
record to be created 

3. Initializes data items to one of the following values: 

a. The DASDL-declared INITIAL VALUE, if present 

b. The DASDL-declared NULL, if present 

c. The default NULL 

SyntsLK 

<create statement) 

— CREATE — <data set> > 

I i 

|- ( — <arithmetic expression)-- ) ~| 

> _ I 

i I 

|-<exception handling)- | 



See also 

<data set> 703 

<exception handling) 768 



Semantics 



The <data set) construct specifies the data set to be initialized. The 
current path of the data set is not changed until a subsequent STORE 
statement has completed successfully. 



The arithmetic expression specifies the type of record to be created. 
This arithmetic expression is required when a variable-format record is 
created; otherwise, it must not appear. 



DMSII Interface 
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An exception is returned if the arithmetic expression does not represent 
a valid record type. 



Pragmatics 



Normally, the CREATE statement is eventually followed by a STORE 
statement, which places the newly created record into the data set. 
However, if a subsequent STORE operation is not desired, the CREATE 
statement can be nullified by a subsequent CREATE, DELETE, FIND, 
BDMS "FREE." BDMS "LOCK," MODIFY, or RECREATE Statement. 



The CREATE statement sets up only a record area. If the record contains 
embedded structures, the master record must be stored before entries can 
be created in the embedded structures. If only entries in the embedded 
structure are created (that is. if items in the master are not altered), 
the master need not be stored a second time. 



Excunple 



If the database DBASE is described in DASDL as follows 

D DATA SET ( 

A ALPHA (10); 
B BOOLEAN; 
N NUMBER (3); 

); 

S SET OF D KEY N; 



then the following BDMSALGOL program shows how a record of data set D 
can be created and stored. 
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BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY X[0:9]; 
INTEGER Y,Z; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A10,I1,I3>,X[03,Y,Z) DO 

BEGIN 

CREATE D: 

PUT D (A := X[0]): 

IF Y = 1 THEN 

PUT D (B := TRUE); 
PUT D ( N : = Z ) ; 
STORE D; 
END; 
CLOSE DBASE; 
END. 
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DELETE STATEMENT 



The DELETE statement is identical to the FIND statement except that if a 
record is found , it is locked and then deleted . 



The DELETE statement performs the following steps in order: 

1. Frees the current record, uinless the selection expression is 
the name of the data set and the current record is locked. In 
that case, the locked status is not altered. 

2. Alters the current path to point to the record specified by the 
selection expression, and locks this record. 

3. Transfers that record to the user work area. 

4. Removes the record from all sets and automatic subsets, but not 
from manual subsets. 

5. Removes the record from the data set. 



If the record is found but cannot be deleted, an exception is returned 
and the DELETE statement terminates, leaving the current path pointing 
to the record specified by the selection expression. 



If a set selection expression is used and the record is not found, then 
an exception is returned and the set path is changed and invalid. It 
refers to a location between the last key less than the condition and 
the first key greater than the condition. A set selection expression 
using NEXT or PRIOR can be done from this point provided keys greater 
than and less than the condition exist. The current path of the data 
set, the current record, and the current paths of any other sets for 
that data set remain unchanged. 



It is the responsibility of the programmer to ensure that no manual 
subset refers to the record being deleted. 
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Syntax 



<delete statement > 

— DELETE — <selection expression> ■ '- 

I 

|-<exception handling>- 



> -r 

I I 

|- ( — <input mapping> — ) -| 



See also 

<exception handling> * . . . 768 

<lnput mapping> 696 

<selection expression> 703 



Semantics 



The selection expression identifies the record to be deleted. 



An exception is returned and the record is not deleted if the record has 
counted links pointing to it, or if the record contains a non-NULL link 
or a non-empty embedded structure. 



Pragmatics 



When the DELETE statement completes, the current paths still refer tc 
the deleted record. Therefore, a FIND statement on the current record 
results in a NOTFOUND exception; however, "FIND NEXT" and "FIND PRIOR" 
statements are still appropriate. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA ( 3 ) ; 
B BOOLEAN; 
N NUMBER (3);; 
R REAL; 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates the use of the DELETE 
statement to delete a record of the data set D where item N is equal to 
the value of X. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CA.RD_FILE,<I3>,X) DO 

DELETE S AT N = X; 
CLOSE DBASE; 
END. 
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nMTERMINATE STATEMENT 

The DMTERMINATE statement aborts the current action. When an exception 
occurs that the program does not handle, the DMTERMINATE statement can 
be called to produce the same results as if the exception-handling 
syntax had not been specified in the statement; that is, the DMTERMINATE 
statement causes the program to terminate with a fault. 



Syntax 

<dmterminate statements- 

— DMTERMINATE <Boolean identifier>- 

I 

l-<integer identifier>- 

|-<real identifier.> 



See also 

<Boolean identifier> ^-^ 

<integer identifier > 12j 

<real identifier> ..... 182 



Exaunple 

If the database DBASE is described in DASDL as follows 

D DATA SET ( 

A ALPHA (3); 
B BOOLEAN; 
N NUMBER ( 3 ) ; 
R REAL; 

); 

S SET OF D KEY N; 
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then the following BDMSALGOL program shows an example of the use of the 
DMTERMINATE statement. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
BOOLEAN RSLT : 
REAL RRSLT = RSLT ; 
INTEGER X; 

OPEN UPDATE DBASE; 
FIND FIRST D :RSLT; 
IF RSLT THEN 
BEGIN 

DISPLAYC'D IS EMPTY DATA SET"); 
DMTERMINATE ( RSLT ) ; 
END 
ELSE 

WHILE NOT READ(CARD_FILE,<I3>,X) DO 
BEGIN 

DELETE S AT N = X :RSLT; 
IF RRSLT. DMERROR = NOTFOUND THEN 

DMTERMINATE ( RSLT ) ; 
END; 
CLOSE DBASE; 
END. 
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ENDTRANSACTIQW STATEMENT 



The ENDTRANSACTION statement talces a program out of transaction state. 
This statement can be used only with audited databases. 

The ENDTRANSACTION Statement performs the following steps in order: 

1. Captures the restart area if AUDIT is specified 

2. Forces a syncpoint if the SYNC option is specified 

3. Implicitly frees all records of the database that the program 
has locked 

Refer to the "DMSII User Language Interface Software Operation Guide" 
for information regarding audit and recovery. 

Syntajc 

<endtransaction statement> 

— ENDTRANSACTION ^ 

I I 

|- ( — <endtransaction parameters> — ) -! 

I i 

i- AUDIT i 

! i 

!- NOAUDIT i 

>- <restart data set> ' 

III i 

I- SYNC -I |-<exception handling)- i 

<endtransaction parameters/ 

— <transaction record variable>-- , > 

>-<saveoutput procedure identifier) I 

<saveoutput procedure identifier) 

— <procedure identifier) — I 
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See also 

<exception handling>. ... 768 

<procedure identifier >. 165 

<restart data set>. ............ 712 

<transaction record variable> ... 712 



Semantics 



If the <endtransaction parameters > form is used, the transaction record 
variable is the formal input transaction record variable. The 
saveoutput procedure identifier is the name of the SAVEOUTPUT formal 
procedure. For more information about the SAVEOUTPUT procedure, refer 
to the "DMSII Transaction Processing System (TPS) Programmer's Manual." 



The word "AUDIT" causes the restart area to be captured. The path of 
the restart data set is not altered when the restart record is stored. 



The word "NOAUDIT" causes the restart area to not be captured. NOAUDIT 
is the default action. 



The <restart data set> construct specifies the restart data set to be 
used. 



The word "SYNC" forces a syncpoint. 



An exception is returned if an ENDTRANSACTION statement is attempted and 
the program is not in transaction state. 



Records are freed in all cases. If an exception occurs, the transaction 
is not applied to the database. 
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Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS (AUDIT): 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100): 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3); 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the ENDTRANSACTION 
statement can be used. 



BEGIN 

FILE C ARD_F I LE ( K I ND=READER ) ; 
DATABASE DBASE; 
EBCDIC ARRAY MY_A[0:2]; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N ;= 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 

BEGINTRANSACTION R: 

STORE D; 

ENDTRANSACTION R: 

MY_N :=*+!: 

END ; 
WHILE NOT READ(CARD_FILE,<I3,A3>,MY_N,MY_A[0]) DO 

BEGIN 

LOCK S AT N = MY_N ; 

BEGINTRANSACTION R; 

PUT D (A := MY_A[0]); 

STORE D: 

ENDTRANSACTION R; 

END; 
CLOSE DBASE; 
END. 
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FIND STATEMENT 



The FIND statement transfers a record to the user work area associated 
with a data set or global data. 



The FIND statement performs the following steps in order: 

1. Frees a loclced record in the data set if a data set is 
specified in the FIND statement, or frees a locked record in 
the associated data set if a set is specified in the FIND 
statement 

2. Alters the current path to point to the record specified by the 
selection expression or database name 

3. Transfers that record to the user work area 



Synteix 

<find statement) 

FIND <selection expression) — > 

I I I 

I |-<database identifier) t 

I i I 

I- FIND KEY OF — <set selection expression)- I 

>____ ^ — — j 

I , I I I 

|-<exception handling)-! |- ( — <input mapping) — ) -| 



See also 

<database identifier) » 715 

<exception handling). 768 

< input mapping) ...» 696 

<selection expression). . . . . » 703 

<set selection expression). . . o 703 
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Semantics 



The <sGlection expression> form is used to 
transferred to the user work area. 



specify the record to be 



The <database identifier) form is used to specify the global data record 
to be transferred to the user work area associated with the global data. 
If no global data was described in DASDL for the database, a syntax 
error occurs. 



The form "FIND KEY OF <set selection expression)" moves the key and anv 
associated data (as specified in DASDL) from the key entry to the user 
work area. A physical read is not performed on the data set: 
consequently, all items in the record area that do not appear in the key 
entry retain whatever value they had before the FIND statement. The 
current path of the data set is not affected. 



If an exception is returned, the record is not freed 



An exception 
expression. 



is returned if no record satisfies 



the 



selection 



If a set selection expression is used and the record is not found, then 
an exception is returned and the set path is changed and invalid. It 
refers to a location between the last key less than the condition and 
the first key greater than the condition. A set selection expression 
using NEXT or PRIOR can be done from this point provided keys greater 
than and less than the condition exist. The current path of the data 
set, the current record, and the current paths of any other sets for 
that data set remain unchanged. 



To access data items, input mapping is required. 
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Examples 



FIND FIRST EMP AT DEPT-NO = 1019 :RSLT; 
IF RSLT THEN 

P0P-EMPS[1019] :== 0; 



FIND EMP AT EMP-NG == SSN :RSLT; 
IF RSLT THEN 

ERR_OUT ( INV_EMP_NO_ERR ) ; 



FIND NEXT EMP :RSLT; 
IF RSLT THEN 

GO NO_MORE_EMP ; 



FIND FIRST OVR-65 AT DEPT-NO = 1019 :RSLT; 
IF RSLT THEN 

POP-OVR-65[1019] := 0; 
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BDMS FREE STATEMENT 

The BDMS "FREE" statement unlocks the current record 



A FREE statement can be executed after any operation. If the current 
record is already free, or if no current record is present, the FREE 
statement is ignored. 



The FREE statement can be used to unlock, a record that the user 
anticipates cannot be implicitly freed for a relatively long time. A 
FREE statement executed on a record allows other programs to lock, the 
record. 



Syntax 

<BDMS free statement > 

— FREE <data set>- 



-<database identif ier>- i |-<exception handling 



See also 

<data set> 703 

<database identifier) .... 715 

<exception handling) 768 



Semantics 



The <data set> form is used to specify the data set whose current record 
is to be unlocked. The data set path and current record area remain 
unchanged. 



The <database identifier) form is used to specify the global data record 
to be unlocked. The data set path and current record area remain 
unchanged. 



If an exception is returned, the state of the database remains 
unchanged. 
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Pragmatics 



The FREE Statement is optional in many situations because DELETE, FIND, 
BDMS "LOCK," and MODIFY statements can free a record before they 
execute. FIND, LOCK, and MODIFY statements that use sets or subsets can 
free the locked record only if a new record is successfully retrieved. 
Otherwise, the previously locked record remains locked. In general, an 
implicit FREE statement is performed, if necessary, during any operation 
that establishes a n€?w data set path. 



Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3): 
B BOOLEAN ; 
N NUMBER (3); 
R REAL ; 

); 

S SET OF D KEY N'; 

then the following BDMSALGOL program demonstrates the use of the FREE 
statement to unlock the current record of data set D. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<I3>,X) DO 
BEGIN 

LOCK S AT N = X; 
IF DMTEST(A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END; 
CLOSE DBASE; 
END. 
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The GENERATE statement creates an entire subset in one operation. All 
subsets must be disjoint bit vectors. 



The GENERATE statement performs the following steps in order: 

1. Deletes all the records from the subset to be generated if it 
is not already empty 

2. Assigns either a NULL value, the records in another subset, or 
a combination of the records in two other subsets to the subset 
that is generated 



Syntax 

< generate statement > 

— GENERATE — < subset >— = 



■ NULL — 
•<subset >■ 



- AND <subset>- 

I 

- OR --i 



|-<exception handlings-! 

See also 

<exception handling> 7fo8 

<subset> 704 
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Semantics 



The <subset> to the left of the equal sign (=) is the name of the subset 
to be generated. This subset must be a manual subset, which must be a 
disjoint bit vector. 

The word "NULL" assigns a NULL value to the generated subset. 

If <subset> follows the equal sign, it is the name of the subset whose 

records are to be assigned to the generated subset. This subset must be 

of the same data set as the generated subset, and it must be a disjoint 
bit vector. 

If to the right of the equal sign there are two <subset>s joined by the 
operation AND, OR, +, or -, then these two subsets are to be combined in 
the specified manner. The result is then assigned to the generated 
subset. The two subsets must be of the same data set, and must be 
disjoint bit vectors. 

The operator "AND" specifies that the intersection of the two subsets is 
to be assigned to the generated subset. The intersection is defined to 
be all the records in the first subset that are also in the second 
subset. 

The operator "OR" specifies that the union of the two subsets is to be 
assigned to the generated subset. The union is defined to be all the 
records that are in either the first subset or the second subset. 

The operator "+" specifies that the exclusive OR of the two subsets is 

to be assigned to the generated subset. The exclusive OR consists of 

the records in either the first subset or the second subset, but not the 
records that appear in both subsets. 

The operator "-" specifies that the subset difference of the two subsets 
is to be assigned to the generated subset. The subset difference is 
defined to be the records in the first subset that are not in the second 
subset. 
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Example 



If the database DBASE is described in DASDL as the following: 

D DATA SET ( 

A ALPHA ( 3 ) ; 
B BOOLEAN: 
N NUMBER (3); 
R REAL; 

); 

X SUBSET OF D WHERE (N GEQ 21 AND NOT B) BIT VECTOR; 
Y SUBSET OF D WHERE (R LSS 1000) BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program shows how the GENERATE statement 
can be used to assign all the records that are in both X and Y to subset 
Z. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY S[0:2]; 
INTEGER T,U,V; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A3,I1,I3,I4> ,S,T,U.V) DO 

BEGIN 

CREATE D; 

PUT D (A ;= S); 

IF T = 1 THEN 

PUT D (B := TRUE); 

PUT D (N := U): 

PUT D (R := V): 

STORE D; 

END; 
GENERATE Z = X AND Y; 
CLOSE DBASE; 
END. 
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GET STATEMENT 



The GET statement is used to transfer information from the user work 
area associated with a data set or global data record into program 
variables or arrays. 



The GET statement does not access the database; it assumes that prior 
database operations have loaded the proper record or data items into the 
user work. area. 



Syntax 

<get statements 

— GET— -< data set> ( — < input mapping> — ) 

I i 

l-<database identifier >- 1 



See also 

<data set>. "^" 

<database identifier) "^^^ 

< input mapping > .........».•..••• ^^^ 



Semantics 

The <data set> construct is used to transfer information from the user 
work, area associated with this data set into a program variable or 
array . 

The <database identifier) is used to transfer information from the user 
work, area associated with the global data record into a program variable 
or array. 



Pragmatics 

No exceptions are associated with the GET statement. However, if the 
database containing the referenced data set or global data record has 
not been opened at the time execution of the GET statement is attempted, 
the program terminates with a fault. 



738 

GET ALGOL REFERENCE MANUAL 

Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN: 
N NUMBER (3): 
R REAL; 
); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the GET statement 
can be used to assign current values of data items to program variables 
and arrays. 



BEGIN 

FILE CARD_FILE(KIND=READER), 

PRINT_FILE(KIND=PRINTER) : 
DATABASE DBASE; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0:2]; 

OPEN INQUIRY DBASE; 

WHILE NOT READ(CARD_FILE,<I3>,MN) DC 
BEGIN 

FIND S AT N = MN; 
GET D (MA[0] := A. MB := B): 
IF MB THEN 

GET D (MR := R) 
ELSE 

MR := 0; 
WRITE(PRINT_FILE.<I3," ",A3," ".LS." ",E4.2>, 

MN,MA[0],MB,MRj; 
END : 
CLOSE DBASE; 
END. 
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INSERT STATEMENT 

The INSERT statement places a record into a manual subset. 

The INSERT statement performs the following steps in order: 

1. Inserts the current record of the specified data set into the 
specified subset 

2. Alters the set path for the specified subset to point to the 
inserted record 

Syntax 

< insert statement > 

— INSERT --<data set> — INTO — <subset> ■ I 

I I 

|-<exception handling>-l 



See also 

<data set> -' 

7 fi R 

<exception handling> 

^ , 704 

<subset>. » 



Semantics 

The <data set> construct specifies the data set whose current record is 
inserted into the subset specified by <subset>. The path of the 
specified data set must be the object data set of the specified subset. 

The path of the specified data set must refer to a valid record: if not, 
an exception is returned. 

The subset must be a manual subset, and it must be a subset of the 
specified data set. 

An exception is returned in the following cases: 

1. If duplicates are not allowed for the specified subset and the 
record to be inserted has a Rey identical to that of a record 
currently in that subset 
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2. If the specified subset is embedded in a data set that does not 
have a valid current record 

3. If "LOCK TO MODIFY DETAILS" was specified in DASDL and the 
current record is not locked 



Exaunple 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
N NUMBER (3); 
R REAL; 

); 

X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program shows how the INSERT statement can 
be used to place the current record of data set D into subset X. 



BEGIN 

DATABASE DBASE ; 
BOOLEAN RSLT; 
INTEGER MN; 

OPEN UPDATE DBASE: 
SET D TO BEGINNING; 
FIND NEXT D :RSLT: 
WHILE NOT RSLT DO 

BEGIN 

GET D (MN := N); 

IF MN > 10 THEN 

INSERT D INTO X; 

FIND NEXT D :RSLT; 

END ; 
CLOSE DBASE; 
END. 
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BDMS LOCK STATEMENT 



The BDMS "LOCK" statement is similar to the FIND statement, except that 
if a record is found, it is locked against a concurrent modification by 
another user. 



"LOCK" and "MODIFY" are synonyms. 

If the record to be loclced has already been locked by another program, 
the system performs a contention analysis. In this case, the present 
program waits until the record is unlocked. However, if a wait would 
result in a deadlock, all records locked by the program with the lowest 
priority involved in the deadlock are unlocked, and the operation in 
that program terminates with a DEADLOCK exception. 

The LOCK statement performs the following steps in order: 

1. Frees a locked record in the data set if the LOCK statement 
specifies a data set, or frees a locked record in the 
associated data set if the LOCK statement specifies a set 

2. Alters the current path to point to the record specified by the 
selection expression or database identifier 

3. Locks the specified record and then transfers that record to 
the user work area 



Syntauc 

<BDMS lock statement > 

LOCK <selection expresslon> ■ 

1 i I II 

I- MODIFY -I |-<database identifier >— I |-<exception handling>- 



( — < input mapping> — ) 



See also 

<database identifier> ^■'■- 

<exception handling.^ "7t>8 

< input mapping) ^ ^ 

<selection expression) "^^^ 
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Semantics 



The selection expression is used to specify the record to be locked. 



The database identifier is used to specify the global data record to be 
locked. 



If an exception is returned, the record is not freed. 



If a LOCK statement using a set selection expression returns an 
exception, the current path of the specified set is invalid. However, 
the current path of the data set, the current record, and the current 
paths of any other sets for that data set remain unaltered. 



To access data items, the <input mapping) construct must appear 
Pragmatics 



Because no other user can lock, a record once it is locked, a record must 
be freed when it is no longer required to be locked. A record can be 
freed explicitly by a BDMS "FREE" statement or implicitly by a 
subsequent CREATE, DELETE, FIND, BDMS "LOCK," or RECREATE statement on 
the same data set. 



Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 

A ALPHA ( 3 ) ; 

B BOOLEAN: 

N NUMBER (3); 

R REAL: 

): 
X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates the use of the LOCK 
statement to lock records of subset X. 



DMSII Interfiace 
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BEGIN 

DATABASE DBASE; 
BOOLEAN RSLT : 
INTEGER MN; 



OPEN UPDATE DBASE; 
SET X TO BEGINNING; 
LOCK NEXT X : RSLT ; 
WHILE NOT RSLT DO 
BEGIN 

GET D (MN := N); 
IF MN <= 10 THEN 
BEGIN 

REMOVE D FROM X; 
DELETE D; 
END 
ELSE 

BEGIN 

PITT D (B := TRUE) 
STORE D; 
END: 
LOCK NEXT X iRSLT; 
END; 
CLOSE DBASE; 



END 
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MIDTRANSACTION STATEMENT 



The MIDTRANSACTION Statement causes the compiler to generate- ; sJ i > on 
the given procedure immediately before the call on the DMS procrouiC in 
the Accessroutines. 



Refer to the "DMSII Transaction Processing System (TPS) Programmer's 
Manual" for more information on transaction processing. 



Syntax 

<midtransaction statement > 

— MIDTRANSACTION — ( — <midtransaction parameters>— ) > 

>-<restart data set > | 

I I 

t-<exception handling>-| 

<midtransaction parameters) 

— <transaction record variable)-- , > 

>-<saveinput procedure identifier) ! 

<saveinput procedure identifier) 
— <procedure identifier) — j 



See also 

<exception handling) 753 

<procedure identifier) 155 

<restart data set) 712 

<transaction record variable) .......... 712 



Semantics 



The transaction record variable is the formal input transaction record 
variable. 



The saveinput procedure identifier is the name of the SAVEINPUT formal 
procedure. 
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The <restart data set> construct specifies the restart data set to be 

used. 



Example 

MIDTRANSAGTION ( TRIN , SAVEINPUT ) RDS : RSLT ; 
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MODIFY STATEMENT 



The MODIFY ^,stai:emej3-t ,4.f i4fe|i^~l&|| 



section. "MODIFY" and "LOCK" sire'^nljOTl 
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BDMS OPEN STATEMENT 



The BDMS "OPEN" statement opens a database for subsequent access and 
specifies the access mode. 



The OPEN statement performs the following steps in order: 

1. Opens an existing database. Appropriate "NO FILE" messages are 
displayed if files required for invoked structures are not 
present in the system directory. 

2. Performs an implicit CREATE statement on the restart data set. 



Syntax 

<BDMS open statement 
— OPEN 



I- INQUIRY — i 
I ! 

I- TRUPDATE -I 
I I 

I - UPDATE I 



< database identifier>- 



■<exception handling>- 



See also 

<database identifier > . . . . . . . • • "715 

<exception handling/. 7^S 



Semantics 



The word "INQUIRY" enforces read-only access to the database. This 
option Is specified when no update operations are to be performed on the 
database. An exception is returned if the following BDMSALGOL 
statements are used when the database has been opened with the INQUIRY 

option : 



ASSIGN statement 
BEGINTRANSACTION statement 
DELETE statement 
ENDTRANSACTION statement 



GENERATE statement 
INSERT statement 
REMOVE statement 
STORE statement 
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The data management system does not open any audit files if the "OPEN 
INQUIRY" form has been used by all programs accessing the database. 



The word "UPDATE" allows the program to modify the database being 
opened. The UPDATE option must be specified in order to use the 
BDMSALGOL statements listed above under the INQUIRY option. UPDATE is 
the default option. 



The word "TRUPDATE" must be specified in order to use the MIDTRANSACTION 
statement or the < transact ion record variable> form of the 
BEGINTRANSACTION or ENDTRANSACTION statements. 



The database identifier specifies the database to be opened. 



If an exception is returned, the state of the database remains 
unchanged. 



An exception is returned if the database is already open 



Pragmatics 



An OPEN statement must be executed before the first access of the 
database; otherwise, the program terminates with a fault. 



Examples 



If the database DBASE is described in DASDL as follows 



OPTIONS (AUDIT); 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 

A ALPHA (10); 

B BOOLEAN; 

N NUMBER (3); 

); 
S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR; 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 
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then the following BDMSALGOL program demonstrates the use of the OPEN 
statement with the INQUIRY option to open database DBASE and perform 
read-only actions on the database. 



BEGIN 

FILE CARD_FILE(KIND=READER), 

PRINT_FILE(KIND=PRINTER) ; 
DATABASE DBASE; 
BOOLEAN MB; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0:2]; 

OPEN INQUIRY DBASE; 

WHILE NOT READ(CARD_FILE,<I3>,MN) DO 

BEGIN 

FIND S AT N = MN; 

GET D (MA[0] := A,MB := B); 

IF MB THEN 

GET D (MR := N) 

ELSE 

MR := 0; 

WRITE(PRINT_FILE.<I3," ", A3 . " " ,L5 , "" ,E4. 2 > , 

MN,MA[0],MB,MR); 
END; 
CLOSE DBASE; 
END. 

The following BDMSALGOL program demonstrates the use of the OPEN 
statement with the UPDATE option to open database DBASE and perform 
update actions on the database. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE ; 
INTEGER X; 

OPEN UPDATE DBASE ; 

WHILE NOT READ(CARD_FILE,<I3>,X) DO 
BEGIN 

LOCK S AT N - X: 
IF DMTEST(A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END: 
CLOSE DBASE; 
END. 



750 

PUT ALGOL REFERENCE MANUAL 

PUT STATEMENT 



The PUT statement transfers information from program expressions into 
the user work area associated with a data set or global data record. 



The PUT statement does not update the database; a subsequent STORE 
statement must be executed to place the data in the user work, area into 
the database. 



Any number of PUT statements can be used to update items before a STORE 
statement is executed. 



Syntax 

<put statement > 

— PUT <data set> ( — <output mapping> — ) — i 

I I 

|-<database identifier >- I 



See also 

<data set> 703 

<database identifiers ..... 715 

<output mappings 700 



Semantics 



The <data set> form is used to transfer information associated with this 
data set into the user work area. 



The <database identifier) form is used to transfer information 
associated with the global data record into the user work area. 



Pragmatics 



No exceptions are associated with the PUT statement. However, if the 
database containing the specified data set or the specified database has 
not been opened, the program terminates with a fault. 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 

A ALPHA ( 3 ) ; 
B BOOLEAN ; 
N NUMBER (3); 
R REAL; 

) : 
X SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates how the PUT statement 
can be used to assign values to data items. 



BEGIN 

FILE CARD_FILE(KIND=READER): 
DATABASE DBASE; 
EBCDIC ARRAY S[0:2]: 
INTEGER T,U,V; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A3,I1,I3, I4>,S[0],T,U,V) DO 

BEGIN 

CREATE D; 

PUT D (A := S); 

IF T = 1 THEN 

PUT D ( B : = TRUE ) ; 

PUT D ( N ; = U , R : = V ) ; 

STORE D; 

END ; 
CLOSE DBASE; 
END. 
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RECREATE STATEMENT 



The RECREATE statement partially initializes the user work area. All 
data items remain unaltered; however, control items such as links, sets, 
counts, and data sets are unconditionally set to NULL. 



For variable-format records, the record type supplied must be the same 
as that supplied in the CREATE statement that created the record. If 
not, the subsequent STORE statement results in a DATAERROR subcategory 
4. 



The RECREATE statement performs the following steps in order: 

1. Frees the current record of the specified data set 

2. Reads any specified arithmetic expression to determine the 
format of the record to be created 

5. Unconditionally sets links, sets, counts, and data sets to NULL 
Syntax 

<recreate statement > 

~ RECREATE ~<data set> — — -> 

I ! 

I- ( — <arithmetic expression> — ) -I 

> — — ^ '^ 

I I 

l-<exception handling>-| 



See also 

<data set>. • 703 

<exception handling) • 768 



Semantics 



The <data set> construct specifies the data set to be initialized, 



The arithmetic expression specifies a value indicating the type of 
record to be created. This arithmetic expression is required when a 
variable-format record is created: otherwise, it must not appear. 
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An exception is returned if the arithrnetic expression does not represent 
a valid record type. 



Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS (AUDIT); 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100): 

); 

D DATA SET ( 

A ALPHA (10); 

B BOOLEAN ; 

N NUMBER ( 3 ) ; 

); 

S SET OF D KEY N; 
SS SUBSET OF D BIT VECTOR; 
X SUBSET OF D BIT VECTOR; 
Y SUBSET OF D BIT VECTOR; 
Z SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates how the RECREATE 
statement can be used to partially initialize a record of data set D. 



BEGIN 

F I LE C ARD_F I LE ( K I N D=READER ) ; 
DATABASE DBASE; 
EBCDIC ARRAY X[0;9]; 
INTEGER Y,Z: 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<A10,I1,I3>,X[0],Y,Z) DO 

BEGIN 

CREATE D; 

PUT D (A := X[0]); 

IF Y =1 THEN 

PUT D (B := TRUE); 

PUT D (N := Z); 

STORE D; 

RECREATE D; 

PUT D (N := Z+1); 

STORE D; 

END; 
CLOSE DBASE; 
END. 
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REMOVE STATEMENT 



The REMOVE statement is similar to the FIND statement, except that if a 
record is found, it is locked and then removed from the specified 
subset . 



The REMOVE statement performs the following steps in order: 

1. Frees the current record 

2. Alters the current p^rth to point tc the record specified by 
CURRENT or the data set 

3. Locks the previously found record and then removes the record 
from the specified subset 

If an exception occurs after step 2, the current path is invalid. 



If an exception occurs after step 3, the operation terminates, leaving 
the current path pointing to the record specified by CURRENT or by the 
data set. 



Syntax 

< remove statement > 

~ REMOVE CURRENT FROM ~< subset >~ ____________ > 

.1 I 

i-<data set>- I 

>__ _ _ _^ I 

i I 

i-<exception handling>-| 



See also 

<data set>. 703 

<exceptlon handling) .768 

< subset > . . . . .... . . ... 704 
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l.i 



^L^^lSl i" CURRENT" removes the current record from the specified subset. 

the subset must have a valid current 

i> 



f^ I bpt;ion IS specified, 

u4j^, «it does not have a valid current record, an exception 



IS 









the specified 
An exception is 



7 fry: .',» . ^ - . 

i%!^^ s^t'> cdnstruct is used to find and remove from 

I^J^iift ''*r*^cord ^referenced by the current path. 

W^ifVthe' record is not m the subset. 

|t)it^^|^%,et;> construct 

iiii'il'^i''' ¥he! subset must be a manual subset of the specified data set. 

f-it|^$!# n^*» s'^^VsWt/ 1 s' embedded ma data set, the d 
'*bti£-r'6fet'^ .reicord defined and that record must 
'k^^^piXpti ^ is. returned. 



specifies the subset from which a record is to be 



data set must have a 
be locked; if not, an 



C|34'.^X.«^^tio'n Jis returned m the following cases: 

''^'^t'i^S'" 'jn^v^^^S^,"^ IS specif 1-- --"' -^-—--<^^ 
■4''}' vl$;'\'a'riv:£l.id t;urrent recor 

^%EMfJip^'i'Yi^' specified subset is 
lif|MlOid;t^'dc>f*s hot !have a current 



ed and the specified subset does not have 
d 



"data s?et is specified and the record is not in the subset 



is embedded in a data set. and the data 
record defined and locked 






^. 'iVtJ^d^',j^cor(:3. Therefore, a subsequent FIND statement on the 
|;|K#v\t,^Vo^^ results in a NOTFOUND exception. However, the "FIND 
x¥teii'<S '"VrNt) PRIOR" forms of the FIND statement give valid results. 



t^'^^W^E statement is executed, the current paths still refer to 
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Example 



If the database DBASE is described in DASDL as follows: 

D DATA SET ( 
A ALPHA (3); 
B BOOLEAN; 
N NUMBER (3); 
R REAL ; 

); 

SS SUBSET OF D BIT VECTOR; 

then the following BDMSALGOL program demonstrates the use of the REMOVE 
statement to lock, and remove the record of data set D that is referenced 
by the current path from the subset SS. 



BEGIN 

DATABASE DBASE; 
BOOLEAN RSLT; 
INTEGER MN; 

OPEN UPDATE DBASE; 
SET SS TO BEGINNING; 
FIND NEXT SS :RSLT; 
WHILE NOT RSLT DO 

BEGIN 

GET D (MN := N); 

IF MN < 10 THEN 

REMOVE D FROM SS; 

FIND NEXT SS :RSLT; 

END ; 
CLOSE DBASE; 
END. 
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BDMS SET STATEMENT 



The BDMS "SET" statement alters the current path or changes the value of 
an item in the current record. Only the record area is affected. The 
data set is not affected until a subsequent STORE statement is executed. 



The SET statement performs the following steps in order: 

1. Frees the current path of the data set, set, or subset 

2. Performs one of the following actions: 

a. Alters the current path of the data set, set, or subset to 
point to the beginning or the ending of the indicated 
structure 

b. Alters the set or subset path to point to the current path 
of another data set 

b. Assigns a NULL value to a particular item 
Syntax 

<BDMS set statement) 

— SET <set> — TO <data set> ^-<exception handling> I 

I I I I 

-<subset>-l I- BEGINNING — I i 

I i I 

i- ENDING -i i 

i I 

-<data set>~ TO BEGINNING -\ i 

I I i 

I- ENDING I I 

I 
-<item>~ TO ~ NULL —— — — | 

<item> 

— <qualif ication>-- I 



See also 

<data set>. 703 

<exception handling> 768 

<qualif ication> 693 

<set> . 703 

<subset> 704 
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Semantics 



The constructs <data set>, <set>, or <subset> following the word "SET" 
specify the data set, set, or subset, respectively, whose path is 
altered. 



If "TO <data set>" is specified, the current path of the set or subset 
is altered to point to the current record of the specified data set. 



If "TO BEGINNING" is specified, the current path of the set, subset, or 
data set is altered to point to the beginning of the set, subset, or 
data set, respectively. 



If "TO ENDING" is specified, the current path of the set, subset, or 
data set is altered to point to the ending of the set, subset, or data 
set, respectively. 



The <item> construct specifies an item of the current record that is 
assigned a NULL value. The item cannot be a link item. NULL is the 
DASDL-declared NULL value if present; otherwise, it is the system 
default NULL value. 



Pragmatics 



After a "SET TO BEGINNING" form of the SET statement, the "FIND NEXT" 
and "FIND FIRST" forms of the FIND statement are equivalent; similarly, 
after a "SET TO ENDING", a "FIND PRIOR" and "FIND LAST" are equivalent. 



Example 



If the database DBASE is described in DASDL as follows 



D DATA SET ( 

A ALPHA (20); 

B BOOLEAN; 

N NUMBER (2); 

R REAL; 

); 
S SET OF D KEY ( N ) ; 
SS SUBSET OF D WHERE ( N = 3 ) 
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then the following BDMSALGOL program demonstrates different ways to use 
the SET statement. 



BEGIN 

FILE CARD_.FILE(KIND=READER), 

PRINT_FILE(KIND=PRINTER) ; 
DATABASE DBASE; 
BOOLEAN MB,RSLT; 
REAL MR; 
INTEGER MN; 
EBCDIC ARRAY MA[0:2]; 
LABEL CLOSE_DAT ABASE ; 

OPEN INQUIRY DBASE; 
SET SS TO BEGINNING :RSLT; 
IF RSLT THEN 
BEGIN 

WRITE(PRINT_FILE,<"** NO ENTRIES IN SS. **">); 
GO CLOSE_DATABASE ; 
END; 
WHILE NOT READ(CARD_FILE,<I3>,MN) DO 
BEGIN 

FIND S AT N = MN; 
SET SS TO D :RSLT; 
IF RSLT THEN 

WRITE(PRINT_FILE,<I3," NOT IN SS.">,MN) 
ELSE 

BEGIN 

GET D(MA[0:) := A, MB := B); 

IF MB THEN 

GET D (MR := R) 
ELSE 

MR : = ;; 
WRITE(PRINT_FILE,<I3," ",A2„*' ••,L5,*' -,E4.2>, 

MN,MA[0],MB.MR); 
END; 
END ; 

CLOSE_DATABASE: 
CLOSE DBASE; 
END. 
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STORE STATEMENT 



The STORE statement places a new or modified record into a data set or a 
global record area. The data from the user work area for the data set 
or global record is inserted into the data set or global record area. 



The STORE statement performs the following actions depending on the 
prior operation. 

1. After a CREATE or RECREATE statement: 

a. Checks the data in the user work area for validity if a 
VERIFY condition is specified in the DASDL 

b. Tests the record for validity for insertion in each set in 
the data set (for example, tests whether or not duplicates 
are allowed) 

c. Evaluates the WHERE condition for each automatic subset 

d. Inserts the record into all sets and automatic subsets if 
all conditions are satisfied 

G. Locks the new record 

f. Alters the data set path to point to the new record 

2. After a BDMS "LOCK" or MODIFY statement: 

a. Checks the data in the user work area for validity if a 
VERIFY condition is specified in the DASDL. 

b. Re-evaluates the conditions if items involved in the 
insertion condition? have changed. If the condition 
yields FALSE, the record is removed from each automatic 
subset that contains the record. If the condition yields 
TRUE, the record is inserted into each automatic subset 
that does not contain the record. 

c. Deletes and re-inserts the record in the proper position 
if a key used in the ordering of a set or automatic subset 
is modified so that the record must be moved within that 
set or automatic subset. 

d. Stores the record in a manual subset, but performs no 
reordering on that subset. The user is responsible for 
maintaining manual subsets. A subsequent reference to the 
record using that subset produces undefined results. 
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Syntcix 



< store statement) 

— STORE <data set> --• > 

I I I I 

|-<database identifier)- I |-<exception handling)-! 



- ( — <output mapping) — ) - 



See also 

<data set) 703 

<database identifier) 715 

<exception handling) 768 

<output mapping). .......... 700 



Semantics 



If the <data set) form is used, the data in the user work area 
data set is returned to the specified data set. 



for the 



If the <database identifier) form is used, the data in the user work, 
area for the global data is returned to the global data record area. 
The global data record must be locked before a STORE statement 
references it; otherwise, the STORE statement is terminated with an 
exception. 



An exception is returned and the record is not stored if the record does 
not meet any of the validity conditions. 



An exception is returned if the data set path is valid and the current 
record is not locked, or if the global data record is not locked. 
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Example 



If the database DBASE is described in DASDL as follows: 

OPTIONS (AUDIT); 

R RESTART DATA SET ( 

P ALPHA (10); 

Q ALPHA (100); 

); 

D DATA SET ( 
A ALPHA (3); 
N NUMBER (3); 

); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the STORE 
statement can be used to place a record into the data set D. 



BEGIN 

FILE CARD_FILE(KIND=READER); 
DATABASE DBASE; 
EBCDIC ARRAY MY_A[0:23; 
INTEGER MY_N; 

OPEN UPDATE DBASE; 

MY_N := 1; 

WHILE MY_N < 100 DO 

BEGIN 

CREATE D; 

PUT D (N := MY_N); 

BEGINTRANSACTION R; 

STORE D; 

ENDTRANSACTION R; 

MY_N := *+l; 

END ; 
WHILE NOT READ(CARD_FILE,<I3,A3>,MY_N,MY_A[0]) DO 

BEGIN 

LOCK S AT N = MY_N ; 

BEGINTRANSACTION R; 

PUT D (A := MY_A[0]); 

STORE D: 

ENDTRANSACTION R: 

END; 
CLOSE DBASE; 
END. 
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BDMSALGQL FUNCTIONS 



There are two data management functions available in the BDMSALGOL 
language: DMTEST and STRUCTURENUMBER. These functions are described in 
this section. 



DMTEST FUNCTION 



The DMTEST function determines whether an item is NULL. The function 
returns a Boolean value, which is TRUE if the value of the relationship 
expressed between the parentheses is TRUE and FALSE otherwise. No 
status value is associated with the DMTEST function. 



syntax 



<dmtest function> 
~ DMTEST — ( 



— <alpha item> — 
-<link. item>^ — 
-< numeric item>- 
-<real item> 



EQL — - NULL — ) ~ 



IS 

NEQ — 



- ISNT - 



<alpha ltem> 
< numeric item> 
<real item> 

— <qualif ication> — 



See also 

<link item> . . 
<qualif ication> 
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764 



Semantics 



ALGOL REFERENCE MANUAL 



The <alpha item> construct specifies an alpha item declared in the 
DASDL. The alpha item contains a NULL value after a "SET <item> TO 
NULL" form of the BDMS "SET" statement, where <item> is the alpha item. 



The <numeric item> construct specifies a numeric item declared in the 
DASDL. The numeric item contains a NULL value after a "SET <item> TO 
NULL" form of the BDMS "SET" statement, where <item> is the numeric 
item. 



The <real item> construct specifies a real item declared in the DASDL. 
The real item contains a NULL value after a "SET <item> TO NULL" form of 
the BDMS "SET" statement, where <item> is the real item. 



The <link item> construct specifies a link item declared in the DASDL. 
The link item contains a NULL value if either of the following is TRUE: 

1. The link item does not point to a record. 

2. No current record is present for the data set that contains the 
link item. This condition occurs following a BDMS "OPEN" 
statement, following the "SET TO BEGINNING" and "SET TO ENDING" 
forms of the BDMS "SET" statement, or when the record 
containing the link item has been deleted. 



The link item contains a non-NULL value if the link 
record, even if that record has been deleted. 



item points to a 



The word "NULL" represents the DASDL-def ined NULL value, 
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Example 

If the database DBASE is described in DASDL as follows: 

D DATA SET { 

A ALPHA (3); 
B BOOLEAN; 
N NUMBER ( 3 ) ; 
R REAL; 
); 

S SET OF D KEY N; 

then the following BDMSALGOL program demonstrates how the DMTEST 
function can be used to determine whether or not the alpha item A is 
NULL. 



BEGIN 

FILE CARD_FILE(KIND=READER); 

DATABASE DBASE; 

INTEGER X; 

OPEN UPDATE DBASE; 

WHILE NOT READ(CARD_FILE,<I3>,X) DO 
BEGIN 

LOCK S AT N = X; 
IF DMTEST (A ISNT NULL) THEN 

DELETE D 
ELSE 

FREE D; 
END; 
CLOSE DBASE; 
END. 
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The STRUCTURENUMBER function allows the programmer to determine 
programmatically the structure number of a data set, set, subset, or of 
global data. This function can be used to analyze the result of 
exception conditions. 



This capability is most useful when several sets span a data set and the 
previous operation against the data set yielded an exception. The 
program can determine which structure caused the exception from the 
corresponding structure number. 



Syntax 



<structurenumber function > 

— STRUCTURENUMBER — ( - 



— <database identifiers ) 

I 

-<data set> i 

I 

-<set > ! 

I 

I 

-<subset> 1 



See also 

<data set> 703 

<database identifier) 715 

<set> 703 

< subsets 704 



Semantics 



If the <database identifiers construct is used, the STRUCTURENUMBER 
function returns the structure number of the global data. Otherwise, 
the function returns the structure number of the data set, set, or 
subset specified, respectively, by the <data sets, <sets, or <subset> 
construct. 
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When a partitioned structure is declared in DASDL, it is assigned one or 
more structure numbers, depending on <unsigned integer> in the 
"OPEN PARTITIONS = <unsigned integer >" form of the DASDL "OPEN" data set 
option (For more information, refer to the "DMSII DASDL Reference 
Manual.") For example, if "OPEN PARTITIONS = 3" is specified, three 
structure numbers are assigned to the partitioned structure. The 
STRUCTURENUMBER function returns the smallest structure number assigned 
to the structure; however, DMSTRUCTURE, the value in the exception 
status word, can evaluate to any of these values; that is, it does not 
necessarily evaluate to the same structure number every time. 



Example 



REAL ERRORWORD; 

IF STRUCTURENUMBER(D) == ERRORWORD. DMSTRUCTURE THEN 
REPLACE EA BY "D FAULT"; 



768 

ALGOL REFERENCE MANUAL 

9.5 EXCEPTION PROCESSING 



When executing BDMSALGOL statements, any one of several exception 
conditions, which prevent the operation from being performed as 
specified, can be encountered. These conditions result if the operation 
encounters a fault or does not produce the expected action. For 
example, execution of the statement 

FIND S AT NAME = "JONES" 

would result in an exception if there is no entry in S that has a value 
of "JONES" for the key item. If the operation terminates normally, no 
exception occurs. 



A database status word is returned to the BDMSALGOL program at the 

conclusion of each BDMSALGOL statement. The value of this word 

indicates whether or not an exception has occurred and specifies the 
nature of the exception. 



DATABASE STATUS WORD 



In a BDMSALGOL Statement, the user must specify the name of a real 
variable or Boolean variable in which the value of the database status 
word is stored at the completion of the BDMSALGOL statement. If no such 
variable is specified, the status value cannot be interrogated. 

The <exception handling) construct is used in the syntax of the 
BDMSALGOL statements to denote those statements where a program variable 
can be designated to receive the value of the database status word. 



Syntcix 

<exception handling) 

— : — <exception variable)- 

<exception variable) 

<Boolean variable) | 

i ! 

|-<real variable) 1 
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See also 

<Boolean variable>. 234 

<real variable> 447 



Semantics 



A Boolean variable is a Boolean simple variable or an element of a 
Boolean array. A real variable is a real simple variable or an element 
of a real array. 



Example 



REAL ERRORWORD; 

OPEN UPDATE DBASE :ERRORWORD; 



EXCEPTION HANDLING 



If the. database status word is treated as a Boolean quantity, its value 
is TRUE if the operation containing it results in an exception; 
otherwise, it is FALSE. 



If an exception results from a database operation, but the value of the 
database status word is not assigned to an exception variable in the 
program, the program is terminated. If the value is assigned to an 
exception variable, no other indication of the exception is given. The 
BDMSALGOL program is responsible for determining the nature of the 
exception and responding appropriately. Failure to do so can cause 
unpredictable results. 



To determine the nature of an exception, the database status word is 
interrogated by specifying a period (.) and an attribute name following 
the exception variable. The attribute names are recognized by the 
BDMSALGOL compiler as representations of the appropriate fields of the 
database status word. 
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<exception value> 

— <exception variable> — . DMERROR J 

I I 

I- DMERRORTYPE -i 
! I 

i- DMSTRUCTURE -| 

Semantics 



The attribute "DMERROR" yields a numeric value identifying a major 
category. Mnemonic names are also available to represent these numeric 
values. Either the category number or the category mnemonic can be used 
to test for a particular category. 



The attribute "DMERRORTYPE" yields 
subcategory of the major category. 



a numeric value identifying the 



The attribute "DMSTRUCTURE" yields a numeric value identifying the 
structure number of the structure involved in the exception. The 
structure numbers of all invoked structures are shown in the program 
listing if the program was compiled with the compiler control options 
LIST and LISTDB equal to TRUE. 



Example 



The following example illustrates one way of handling 
BDMSALGOL program: 



exceptions in a 



REAL ERRORWORD: 

OPEN UPDATE DBASE : ERRORWORD: 

IF BOOLEAN (ERRORWORD) THEN 

IF ERRORWORD . DMERROR = OPENERROR THEN 
IF ERRORWORD . DMERRORTYPE = 1 THEN 

DISPLAY("I/0 ERROR ON ACCESSROUTINES CODE FILE"): 
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If the exception variable is a Boolean variable, the preceding example 
is changed as follows: 

BOOLEAN ERRORWORD; 

OPEN UPDATE DBASE ;:ERRORWORD; 

IF ERRORWORD THEN 

IF REAL ( ERRORWORD ).DMERROR = OPENERROR THEN 
IF REAL ( ERRORWORD ).DMERRORTYPE = 1 THEN 

DISPLAY ("I/O ERROR ON ACCESSROUTINES CODE FILE"); 
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9.6 BDMSALGOL COMPILER CONTROL OPTIONS 



The following compiler control options are available in the BDMSALGOL 
language in addition to the options available in the ALGOL language. 
For information on the compiler control options available in ALGOL, 
refer to "Compiler Control Options" in the chapter "Compiling Programs." 



See also 

Compiler Control Options , 595 



<datadictinfo option > 



~ DATADICTINFO — 



(Type: Boolean, Default value: FALSE) 



If the DATADICTINFO option is TRUE, information about the usage of 
database structures and items is placed into the object code file. This 
usage information shows which database structures and items were invoiced 
by the program and whether they were read or written. This option 
cannot be assigned a value after the appearance of the first syntactical 
item in the program. 



<listdb option> 



~ LISTDE ~ 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the LISTDB option are TRUE, the printer 
listing contains information about the invoked databases, structures, 
and items, including the declared database titles. If the LIST option 
is TRUE but the LISTDB option is FALSE, the printer listing does not 
contain this information. The value of LISTDB is ignored if the LIST 
option is FALSE. 
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<nodmdefines option > 



NODMDEFINES 



(Type: Boolean, Default value: FALSE) 

If the NODMDEFINES option is TRUE, no defines are expanded in BDMSALGOL 
constructs. 



When the NODMDEFINES option is FALSE, defines in BDMSALGOL constructs 
are expanded, including defines in the following situations: 

1. A database item has the same identifier as a define. 

2. An alphanumeric string that is part of a database item 
identifier (between two hyphens, before the first hyphen, or 
after the last hyphen) is the same as the identifier of a 
define. 



<tracedb opt ion > 

— TRACEDB — I 

(Type: Boolean. Default value: FALSE) 

If the TRACEDB option is TRUE, the printer listing contains a trace of 
the communication between the BDMSALGOL compiler and the 
DATABASE/INTERFACE program. The action of this option is independent of 
the value of the LIST option. 
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9.7 BINDING AND SEPCOMP Of DATABASES 
BINDING 



Programs that declare and reference databases can be bound together by 
the Binder program. The following example shows a BDMSALGOL host 
program that declares a database and an external procedure, and a 
separate procedure that is to be bound to the host and that declares the 
database in its global part. 



The DASDL description of the database TESTDB is as follows: 

DS DATA SET ( 
NAME GROUP ( 

LAST ALPHA (10); 
FIRST ALPHA (10): 

); 

AGE NUMBER (2); 
SEX ALPHA (1): 
SSNO ALPHA (9); 
): 
NAMESET SET OF DS KEY (LAST. FIRST): 



The following program, compiled with the name SEP/HOST, is the BDMSALGOL 
host program: 

BEGIN 

DATABASE TESTDB: 

PROCEDURE P: EXTERNAL; 

OPEN UPDATE TESTDB; 

P: 

CLOSE TESTDB; 
END. 



775 
DMSII Interface 

The following separate procedure, P, compiled with the name SEP/P, is to 
be bound to the external procedure P of the host. Note how the database 
TESTDB is declared in the global part. 

[DATABASE TESTDB;] 
PROCEDURE P; 
BEGIN 

BOOLEAN EXCEPT I ONWORD: 
EXCEPT I ONWORD := FALSE; 
SET NAMESET TO BEGINNING; 
WHILE NOT EXCEPTI ONWORD DO 
BEGIN 
FIND NEXT NAMESET AT LAST = "SMITH" 

AND FIRST = "JOHN" : EXCEPTI ONWORD; 
% OTHER STATEMENTS 
END; 
END; 



The separate procedure P in SEP/F can be bound to the host SEP/HOST 
using the following Work Flow Language (WFL) Job. The resulting bound 
code file is named GLOBDB. 

7BEGIN JOB BIND/GLOB; 

BIND GLOBDB WITH BINDER LIBRARY; 

BINDER DATA 

HOST IS SEP/HOST; 

BIND P FROM SEP/P; 
?END JOB. 
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SEPCOMP 



Programs that declare and use databases can also make use of the sepcpmp 
facility of the compiler, as shown in the following example. 

The DASDL description of the database TESTDB is as follows: 

DS DATA SET ( 
NAME GROUP ( 

LAST ALPHA (10) : 

FIRST ALPHA (10): 

): 
AGE NUMBER ( 2 ) : 
SEX ALPHA (1): 
SSNO ALPHA (9); 

); 

NAMESET SET OF DS KEY (LAST, FIRST): 



Because the MAKEHOST compiler control option is TRUE, the following 

program, compiled as MY/HOST, can be used as a host program for SEPCOMP. 

$ SET MAKEHOST 

BEGIN 1 

DATABASE TESTDB; 2 

PROCEDURE P; 3 

BEGIN ^ 

BOOLEAN EXCEPTIONWORD; 5 

EXCEPT I ONWORD := FALSE: t 

SET NAMESET TO ENDING: ^ 

WHILE NOT EXCEPTIONWORD DO 8 

BEGIN 9 

FIND NEXT NAMESET AT LAST = "SMITH" 10 

AND FIRST = "JOHN": EXCEPTIONWORD: H 

% OTHER STATEMENTS 12 

END ; 1 2 

END; 1^ 

OPEN UPDATE TESTDB; 15 

P: 1^ 

CLOSE TESTDB; 1^ 

END. IS 



The following source input invoRes the SEPCOMP facility to change the 
record of the host MY/HOST with sequence number 7, recompile the 
procedure P. and bind the new P to ,the host. 

$ SET SEPCOMP "MY/HOST" % PATCH FOLLOWS 
SET NAMESET TO BEGINNING: 
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m CQMPILE-TIME FACILITY 

The compile-time facility is used to: conditionally and iteratively 
compile ALGOL source data. This chapter describes the declaration and 
use of compile-time variables, compile-time identifiers, compile-time 
statements, an extension to the DEFINE declaration, and compiler control 
options that pertain to the compile-time facility. 

The compile-time facility is available only in ALGOL compilers that have 
been compiled with the CTPROC compiler-generation option set to TRUE. 



COMPILE-TIME VARIABLE 
Syntax 

<compile-time variable declaration > 

!<— -— — . I 

I I 

— NUMBER <identifier> • ~ " " ' 

I ' 

I- := ~<starting value> I 

I. i 

I- [ — <vector length> — ] -I 

<number identifier> 

An <identifier> that is associated with a compile-time variable in a 
compile-time variable declaration. 

<starting value> 

— <compile-time arithmetic expression> — I 

<compile-time arithmetic expression > 

Any <arithmetic expression> that can be fully evaluated at compile 
time. A compile-time arithmetic expression consists of constants 
and <compile-time variable>s. 

<vector length> 

— <compile-time arithmetic express:ion> — I 
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<compile-time variable> 

— < number identif ier> 



[ — < compile- time arithmetic expression) — ] -| 



Semantics 



An identifier declared in a compile-time variable declaration is a 
"number variable" or an arithmetic compile-time variable. A 
compile-time variable represents a single-precision arithmetic value. 
It can be used wherever an arithmetic value is allowed and represents 
the value most recently assigned to it. The value of a compile-time 
variable can be changed at any time during compilation by using the 
compile-time 'LET statement. A compile-time variable can be declared 
with a starting value; if a starting value is not explicitly declared, 
the starting value is zero. 



If a compile-time variable is declared with a vector length, a vector or 
"array" of compile-time variables is created. When an identifier 
declared in this way is used, it must be subscripted by a compile-time 
arithmetic expression with a value in the range through 
(vector length - 1). The value of the vector length must be in the 
range 1 to 1023. 
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COMPILE-TIME IDENTIFIER 



Syntax 



< compile- time identifier> 

— <identifier> — ' — <number identifier > — I 

Semantics 

A compile-time identifier can appear anywhere an identifier can be used, 
including declarations. No blank, characters can appear between 
<identifier> and the apostrophe (*) . The created identifier is the 
<identifier>. followed by an apostrophe, followed by numeric characters 
corresponding to the value of the number identifier, with leading zeros 
suppressed. 
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Syntax 
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< compile- time statement > 

<compile-time begin statement >-■ 

-<compile-time define statement>- 

-< compile- time for statement > 

-<compile-time if statement>- 

-<compile-time invoke statement>- 

-<compile-time let statement > 

-<compile-time thru statement> — 
-< compile- time while statement >— 



Semantics 



Compile-time statements begin with an apostrophe ('). which 
distinguishes them from other ALGOL constructs. They are recognized at 
a very primitive level in the compiler and can, therefore, appear almost 
anywhere (for example, between any two ALGOL language components). 



The compile-time statements are intended to provide a method for 
altering the normal flow of compilation, primarily by conditional and 
iterative compilation. 



Compile-time statements are terminated in the same manner as ALGOL 
statements. 



Note that through the use of compile-time variables, a compile-time 
arithmetic or Boolean expression can be fully evaluated at compile time 
and yet not have the same value each time it is evaluated. 
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'BEGIN Statement 
Syntax 

< compile- time begin statement > 

— 'BEGIN — <compile-time text>— 'END — <end remark>— I 

<compile-time text> 

Any ALGOL source text, including complete compile- time statements. 

Semantics 

A 'BEGIN Statement delimits a portion of ALGOL source text. It is 
normally used in conjunction with 'FOR statements, 'IF statements, and 
•THRU statements. If the 'BEGIN statement is executed, the compiler 
processes all the delimited text; otherwise, the compiler skips 
(ignores) the text. Anything following the 'END up to the first special 
character, END, ELSE, 'END, 'ELSE, or UNTIL is considered to be an <end 
remark> and is ignored. 

'DEFINE Statement 
Syntax 

<compile-time define statement > 

— 'DEFINE — <identifier>-- = — <compile-time statement>— 1 

<compile-time define identifier> 

An <identifier> that is associated with a compile-time statement in 
a compile-time define statement. 
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Semantics 



The 'DEFINE statement declares an identifier to represent a compile-time 
statement. 



The compile-time statement is processed when it is referenced by the 
identifier in a subsequent 'INVOKE statement. 



'FOR Statement 

Syntax 

<compile-time for statement) 

— 'FOR — <number identifier > — := • > 

>-<compile-time arithmetic expression> — STEP : > 

>-<compile-time arithmetic expression> — UNTIL ■ — > 

>-<compile-time arithmetic expression> — DO ■ > 

>-< compile-time statement > | 

Semantics 



The 'FOR statement provides iterative compilation of ALGOL source input. 
The value of the compile-time arithmetic expression following "STEP" can 
be positive or negative but must not be equal to zero. 



The action of this statement is similar to that of the non-compile-time 
FOR statement. One exception is that the compile-time arithmetic 
expressions following "STEP" and "UNTIL" are evaluated only once, at the 
beginning of the 'FOR statement, and are not re-evaluated, even though 
their compile-time components can change value. 



Compile-Time Facility 
*IF Statement 

Syntax 

<compile'-time If statement > 

~ 'IF — •<compile-time Boolean expression > — THEN 

>-<compile-time statement > —' — — ^r 

. i 

i- 'ELSE ~<compile-ti.me statement >- 



<compile-time Boolean expression> 

Any < Boolean expression) that can be fully evaluated at compile 
time. A compile-time Boolean expression consists of constants and 
<compile-time variable>s. 



Semantics 



The 'IF statement provides conditional compilation of ALGOL source 
input. 



If the value of the compile-time Boolean expression is TRUE, then the 
compile-time statement following "THEN" is processed: if it is FALSE, 
the compile-time statement following "'ELSE" is processed, if present. 
In either case, compilation continues with the statement following the 
'IF statement. 
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* INVOKE Statement 
Syntax 

< compile- time invoice statement > 

'INVOKE — <compile-time define identifier>- 

Semantics 



The 'INVOKE statement causes the compile-time statement previously 
associated with the compile-time define identifier in a 'DEFINE 
statement to be processed. 



•LET Statement 



Syntax 



<compile-time let statement > 

— 'LET — < compile-time variable> — := ~ ^ 

>-<compile-time arithmetic expression/ [ ' 

Semantics 

The 'LET statement is used to modify the value of a compile-time 
variable. If the compile-time variable was declared using the <vector 
length> construct, it must be subscripted by a compile-time arithmetic 
expression with a value in the range to (vector length - 1). 
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'THRU Statement 

Syntax 

<compile-time thru statement> 

— 'THRU —< compile- time arithmetic expression)-- DO 
>-<compile-time statement > — ■ — — —■ 



Semantics 



The 'THRU statement provides iterative compilation of ALGOL source 
input. The compile-time arithmetic expression must have a value greater 
than or equal to zero. 



The compile-time statement following "DO" is processed <compile-time 
arithmetic expression) times. If this value is zero, the 'THRU 
statement is skipped. 



'WHILE Statement 

Syntax 

<compile-time while statement) 

— 'WHILE — <compile-time Boolean expression)— DO 
>-<compile-time statement > — — — — 



Semantics 



The 'WHILE statement provides iterative compilation of ALGOL source 
input. The compile-time Boolean expression is evaluated at the 
beginning of the statement. If it is TRUE, the compile-time statement 
is processed, the compile-time Boolean expression is evaluated again, 
and this sequence is repeated. Whenever the compile-time Boolean 
expression is FALSE, the 'WHILE statement is finished, and compilation 
continues with the following statement. 
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EXTENSION TO TM DEFINE pgC]LARAT?Qy 

The following extension to the DEFINE declaration is available when 
using the compile-time facility. 



Synt2LX 



<definition> 

— < identifier > = ^ 

I I I i 

i-< formal symbol part>-i I- := -i 

>-<compile-time text> — # ' 

See also 

<formal symbol part>. feO 

Semantics 

If a define identifier is declared using the assignment operator (:=). 
then any compile-time statements in the compile-time text are evaluated 
once at the time of, and in the scope of, the DEFINE declaration. 
Otherwise, the compile-time items in the compile-time text are evaluated 
on each invocation of the define identifier. 



787 



Compile-Tirae Facility 
COMPILE-TIME COMPILER CONTROL OPTIONS 



The following compiler control options are available only in the 
compile- time facility. For more information on compiler co;ntrol options 
and the printer listing file of the compiler, refer to the "Compiling 
Programs" chapter. 



<ctlist option> 



~ CTLIST — 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CTLIST option are TRUE, all input 
records processed are written to the printer listing. In particular, 
during iterative compile-time statements, input records that are 
compiled repeatedly are listed repeatedly. These input records are 
identified by an asterisk. (*) Just to the left of the sequence number. 
If the LIST option is TRUE but the CTLIST option is FALSE, input records 
are written to the printer listing only the first time they are 
compiled. The value of the CTLIST option is ignored if the LIST option 
is FALSE. 



<ctmon option> 



-- CTMON — i 



(Type: Boolean, Default value: FALSE) 



If both the LIST option and the CTMON option are TRUE, all assignments 
to compile-time variables are monitored and written to the printer 
listing. The current value of a compile-time variable when it is 
referenced and the new value when it is changed are listed. If the LIST 
option is TRUE and the CTMON option is FALSE, this monitor information 
does not appear in the printer listing. The value of the CTMON option 
is ignored if the LIST option is FALSE. 



788 

ALGOL REFERENCE MANUAL 

<cttrace option > 

— CTTRACE ~| 

(Type: Boolean, Default value: FALSE) 

If both the LIST option and the CTTRACE option are TRUE, values of 
certain expressions that are components of compile-time statements are 
written to the printer listing. If the LIST option is TRUE and the 
CTTRACE option is FALSE, this information does not appear in the printer 
listing. The value of the CTTRACE option is ignored if the LIST option 
is FALSE. 

<listskip option> 

~ LISTSKIP —I 

(Type: Boolean, Default value: TRUE) 

If both the LIST option and the LISTSKIP option are TRUE, all records 
are written to the printer listing whether or not they are skipped. 
Skipped records are denoted in the listing by the word "SKIP" to the 
right of the sequence number. If the LIST option is TRUE and the 
LISTSKIP option is FALSE. source records that are skipped by the 
compile-time facility are not written to the printer listing. The value 
of the LISTSKIP option is ignored if the LIST option is FALSE. 
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11 BATCH FACILITY 



The batch facility allows more efficient use of system resources by 
enabling a group of programs possessing certain common characteristics 
to share many system overhead functions normally associated with 
individual jobs. Overhead functions that can be shared include job 
initialization, job termination, linking of intrinsics, memory 
allocation, and so on. 



Programs submitted as part of a batch are compiled and executed 
according to the following restrictions: 

1. The programs are compiled for syntax errors only or for 
one-time execution. 

2. If a program declares more than one printer file, all output is 
directed to the same physical file. Likewise, if a program 
declares more than one card file, all input is taken from the 
same physical file. 

3. If a program explicitly opens or closes the printer file. that 
program is discontinued, and the next program in the batch is 
initiated. 

4. If a program requires operator intervention, it is 
discontinued, and the next program in the batch is initiated. 

5. If a program attempts to initiate a task, it is discontinued, 
and the next program in the batch is initiated. 

b. WAIT statements are allowed but have no effect. 

7. The source records of all programs in the batch must use the 
same character type. 

8. In FILE declarations, the values assigned to file attributes 
must not be variables or expressions Involving variables. 
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9, The following compiler control options are invalid or ignored 



AUTOBIND 

BIND 

BINDER 

DUMPINFO 

ERRLIST 

EXTERNAL 

GO TO 

HOST 

INCLNEW 

INCLSEQ 

INCLUDE 

INITIALIZE 

INSTALLATION 



INTRINSICS 

LEVEL 

LIBRARY 

LINEINFO 

LISTINCL 

LOADINFO 

MAKEHOST 

MCP 

MERGE 

NEW 

NEWSEQERR 

NOBINDINFO 

NOXREFLIST 



PURGE 

SEGDESCABOVE 

SEPCOMP 

SHARING 

STOP 

TARGET 

TIME 

USE 

VERSION 

XDECS 

XREF 

XREFFILES 

XREFS 
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BATCH SPURGE INPUT 



The ALGOL compiler performs batch compilation only if the compiler is 

initiated by the Work Flow Language (WFL)* and the source input is in 

the form of <batch source input >. If a <job specif ier> occurs in a 
CANDE- initiated compilation, the compilation is discontinued. 



All batch source input must have the following form: 



Syntax 



. -< job> — — 

I I 

i-<time restrictions>- i 



<time restrictions> 

I < • 

i 

, ,<_- -I 

II . • 

$ <processtime restriction) — '- 

I 1 

|-<iotime restrictions- — - — I 



<processtime restriction) 

— PROCESSTIME ' — = — <decimal number >■ 

<iotime restriction) 

— lOTIME — = — <deciraal numbers — ! 
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— $ — <job specifier ^' <block>- 

i I 

!-<time restrictions>- I 



$ — <entry specifier 



<data>- j 



<job specifier> 
— JOB 



|-<job title>-| 

<job title> 

Any valid file title. 

<entry specifier> 
-- ENTRY — I 

<data> 

Input data to be read by the program when it is executed. 

Semantics 



Batch source input consists of one or more individual programs or 
"jobs." Jobs are delimited in batch source input by "$ < job specifier:-" 
records. Each job can be either compiled for syntax only or compiled 
and then executed. A job is executed if it contains a "$ ENTRY" record, 
and if the job needs input during its execution, this data follows the 
"$ ENTRY" record. Maximum processor times- and I/O times can be 
specified for each job or for all jobs in a batch. Printed output for 
all jobs in a batch is written to the same file and is printed in one 
listing. ■ 



The <processtime restriction > , <iotime restriction), <job specif ier>. 
and <entry specifier) constructs are valid only for batch compilation 
and are not compiler control options. 
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The individual syntactic constructs of xbatch source 
described in more detail in the following paragraphs. 



input 



are 



<time restrietions> 



The <processtime restrict ion > and <iotinie restriction> constructs 
specify the maximum processor time and maximum I/O time, respectively, 
allowed for the execution of a Job before it is discontinued. 



If the time restrictions appear before the first job in a batch, they 
apply to the execution of every job in the batch. If the time 
restrictions appear within a job, they apply to the execution of that 
job only, but they are meaningful only if they specify less time than 
the time restrictions, if any, appearing before the first job in the 
batch. 



<job> 



Each job in the batch source data consists of a complete program that is 
compiled for syntax only or for one-time execution. A job can include 
its own time restrictions and compiler control records. 



<job specif ier> 



The first record in each job must be the "$ <job specifier>" record. If 
a job title is specified in the <job specifier) construct, it is used to 
identify the printed output produced by that job. 



<bloclc> 



The <block> and any compiler control records that follow the 
"$ <job specifier)" record and precede the next "$ ENTRY" record, if 
any, or "$ <job specifier)" record make up the ALGOL program. 



<entry specifier> 



The "$ <entry specifier)" record specifies that the program is to be 
executed if no syntax errors are found and indicates the beginning of 
any input data to be used during execution. If no "$ <entry specifier)" 
record appears in the job, , then the program is compiled for syntax 
errors only; it is not executed. 
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If a job needs input data during execution, the input data appears after 
the "$ ENTRY" record and before the next job, if any. 



Example 

7BEGIN JOB EXAMPLEBATCH; 

7C0MPILE BATCHA ALGOL; 

? ALGOL DATA 

$ PROCESSTIME = 5.5 lOTIME = 1 

$ JOB Al 

$ SET LIST SEQ 

BEGIN 

FILE RDR(KIND = READER); 

INTEGER I; 

ARRAY Z[0:2]; 

READ (RDR,/, FOR I := STEP 1 UNTIL 2 DO Z[l]); 
END. 
$ ENTRY 

2.315,3.71828, .5772, 
$ JOB A2 
BEGIN 

INTEGER A,B,C; 

A := B ++ C; % A SYNTAX ERROR 
END. 
$ ENTRY 
$ JOB A3 
BEGIN 

REAL PI; 

PI := 22/7; 
END. 

$ JOB A^ 

$ PROCESSTIME =2.5 lOTIME =0.5 
BEGIN 

LABEL AGAIN; 

REAL X; 
AGAIN: 

X := 355/133; 

GO TO AGAIN; 
END. 
$ ENTRY 
TEND JOB 



This example shows a WFL job consisting of one batch compilation. The 
batch contains four programs or jobs. No job in this batch is allowed 
more than 5.5 seconds of processor time or 1 second of I/O time. 
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Job Al compiles correctly and is executed using the one record of data 
immediately following its "$ ENTRY" record. Job A2 is not executed 
because it contains a syntax error but would be executed if it were free 
of errors. Job AS, though syntactically correct, is not executed 
because It does not contain a "$ ENTRY" record. 



Job A4 is allowed only 2.5 seconds of processor time and 0.5 seconds of 
1/0 time, compared to 5.5 seconds and 1 second, respectively, for the 
other three jobs in the batch. Job A4 compiles correctly and is 
executed; however, because it contains an infinite loop, it is 
discontinued after its allotted 2.5 seconds of processor time. 
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IMPLEMENTATION SCHEME 



The goal Gf the batch facility is to eliminate as much system overhead 
as possible by reducing the number of tasks initiated within the running 
environment of A Series and B 5000/B 6000/B 7000 Series systems. 



An entire batch is presented to the compiler as one file, thereby 
avoiding repeated initiation of the compiler. The compilation process 
for each individual job within a batch is virtually the same as that for 
nonbatched programs and yields equally efficient object code. When the 
compiler finishes compiling the batch, it generates special object code 
that links each job to the next one. When a job is not to be executed 
(the "$ ENTRY" record is not present or syntax errors occurred during 
compilation), it is not linked to the other jobs. When compilation is 
complete, the object code for all jobs in the batch resides in one disk 
file. 



The printed output from the compiler is directed to a backup printer 
file with an altered BDNAME task attribute so that the output is not 
automatically printed. Logging information regarding the compilation is 
also saved in this file. The execution of the object code proceeds as 
follows: 

1. The D2 stack is built. 

2. The batchmonitor intrinsic is called and passed a procedure 
that serially calls each individual job. 

3. The batchmonitor intrinsic processes the procedure passed to 
it. If any job causes a fatal run-time error, the batchmonitor 
intrinsic executes a procedure that goes automatically to the 
next individual job. 

4. The batchmonitor intrinsic rewinds the two backup printer 
files, extracts the logging information, collates the output 
into a new printer file, and returns control to the Master 
Control Program (MCP). 



All Jobs share the same printer file and intrinsics and can even share 
the same object code segments. The individual jobs run serially and 
share the same stack space. 
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A iob is protected from previous jobs by the batchmonitor intrinsic. If 
one job is discontinued with an error, execution is re-initiated by the 
batchmonitor intrinsic at the next individual job. If any job uses 
excessive I/O or processor time, the batchmonitor intrinsic terminates 
that job. Lilcewise, the batchmonitor intrinsic enforces the rule that 
no operator messages requiring responses are allowed by terminating any 
job that causes such a message. 

The batchmonitor intrinsic extracts the logging information from the two 
printer files and summarizes it at the end of the output for each job. 
This summary procedure is easily modified to provide an interface with 
the accounting system of a given installation. Two words in each log 
record furnished by the compiler and the individual job are spares, thus 
facilitating any installation extensions. 
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A < reserved word> in Extended ALGOL has the same syntax as an 
identifier. The reserved words are divided into three types. 

A reserved word of type 1 can never be declared as an identifier: that 
is, it has a predefined meaning that cannot be changed. For example, 
because LIST is a type 1 reserved word, the declaration 

ARRAY LIST[0:999] 

is flagged with a syntax error. 

A reserved word of type 2 can be redeclared as an identifier; it then 
loses its predefined meaning in the scope of that declaration. For 
example, because IN is a type 2 reserved word, the declaration 

FILE IN (KIND = READER) 
is legal, but in the scope of the declaration, the statement 

SCAN P WHILE IN ALPHA 
is flagged with a syntax error on the word '•IN*'. 



If a type 2 reserved word is used as a variable in a program but it is 
not declared as a variable, then the error message that results is not 
the expected "UNDECLARED IDENTIFIER." Instead, it may be "NO STATEMENT 
CAN START WITH THIS." 



A reserved word of type 3 is context-sensitive. It can be redeclared as 
an identifier, and if it is used where the syntax calls for that 
reserved word, it carries the predefined meaning; otherwise, it carries 
the user-declared meaning. The different meanings for the type 3 
reserved word STATUS are illustrated in the following example. 

BEGIN 

TASK T : 

REAL STATUS: 

% IN THE NEXT STATEMENT, "STATUS"' IS A REAL VARIABLE 

STATUS := 4. 5; 

% IN THE NEXT STATEMENT, "STATUS" IS A TASK ATTRIBUTE 

IF T. STATUS = VALUE (TERMINATED) THEN 

% IN THE NEXT STATEMENT, "STATUS" IS A REAL VARIABLE 

STATUS := 10.0; 
END . 
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Type 3 reserved words include the following: 
File attribute names 
Task attribute names 
Library attribute names 
Direct array attribute names 
Mnemonics for attribute values 



All file attributes, direct array attributes, and mnemonics described in 
the "I/O Subsystem Reference Manual" are type 3 reserved words in ALGOL. 
All task, attributes and mnemonics described in the "Work Flow Language 
(WFL) Reference Manual" are type 3 reserved words in ALGOL. 



RESERVED WORDS LIST 



The following is an alphabetical list of reserved words for Extended 
ALGOL. The number in parentheses following each word indicates the type 
of the reserved word. For example, "FOR (1)" indicates that FOR is a 
type 1 reserved word. 



ABS (2) 
ACCEPT (2) 
ACTUALNAME (3) 
ALL (3) 
ALPHA (1) 
ALPHA6 (3) 
ALPHA? (3) 
ALPHAS (3) 
AND (2) 
ANYFAULT (3) 
ARCCOS (2) 
ARCSIN (2) 
ARCTAN (2) 
ARCTAN2 (2) 
ARRAY (1) 
ARRAYS (3) 
ARRAYSEARCH (2) 
AS (3) 
ASCII (2) 
ASCIITOBCL (3) 
ASCIITOEBCDIC (3) 
ASCIITOHEX (3.) 
ATANH (2) 
ATTACH (2) 
AVAILABLE (2) 



BACKUPPREFIX (3) 
BASE (3) 
BCL (2) 

BCLTOASCII (3) 
BCLTOEBCDIC (3) 
BCLTOHEX ( 3 ) 
BEGIN (1) 
BOOLEAN (1) 
BREAKPOINT (2) 
BY (2) 

BYFUNCTION (3) 
BYTITLE (3) 
CABS (2) 
CALL (2) 
CALLING (2) 
CANCEL (2) 
CASE (2) 
CAT (2) 
CAUSE (2) 
CAUSEANDRESET (2) 
CCOS (2) 
CEXP (2) 
CHANGEFILE (2) 
CHARGECODE (3) 
CHECKPOINT (2) 



CHECKSUM (2) 
CLASS (3) 
CLN (2j 
CLOSE (2) 
CODE ( 3 ) 
COMMENT ( 1 ) 
COMPILETIME 
COMPILETYPE 
COMPLEX (2) 
CONJUGATE (2) 
CONTINUE (1) 
COREESTIMATE 
COS (2) 
COSH (2) 
COTAN (2) 
CRUNCH (3) 
CSIN (2) 
CSQRT (2) 
DABS (2) 
DAND (2) 
DARCCOS (2) 
DARCSIN (2) 
DARCTAN (2) 
DARCTAN2 (2) 
DBS (3) 



(2) 
(3) 



(3) 
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Reserved Words, Continued 



DCOS (2) 

DCOSH (2) 

DEALLOCATE (2) 

DECIMAL (2) 

DECIMALPOINTISCOMMA (3) 

DECLAREDPRIORITY (3) 

DEFINE (2) 

DELINKLIBRARY (2) 

DELTA (2) 

DEQV (2) 

DERF ( 2 ) 

DERFC (2) 

DETACH (2) 

DEXP (2) 

DGAMMA (2) 

DICTIONARY (2) 

DIGITS (2) 

DIM? (2) 

DINTEGER (2) 

DIRECT (1) 

DISABLE (2) 

DISCARD (3) 

DISK (3) 

DISKPACK (3) 

DISPLAY (2) 

DIV (2) 

DLGAMMA (2) 

DLN (2) 

DLOG (2) 

DMAX ( 2 ) 

DMIN (2) 

DNABS (2) 

DNOT (2) 

DO (1) 

DONTWAIT (2) 

DOR (2) 

DOUBLE (1) 

DROP (2) 

DSCALELEFT (2) 

DSCALERIGHT (2) 

DSCALERIGHTT (2) 

DSIN (2; 

DSINH (2) 

DSQRT (2) 

DTAN (2) 

DTANH ( 2 ) 

DUMP ( 2 ) 

EBCDIC (2) 

EBCDICTOASCII (3) 

EBCDICTOBCL (3) 

EBCDICTOHEX (3) 



ELAPSEDTIME (3) 

ELSE (1) 

EMPTY (2) 

EMPTY4 (2) 

EMPTY7 (2) 

EMPTY8 (2) 

ENABLE (2) 

END (1) 

ENTIER (2) 

EQL (2) 

EQV (2) 

ERF (2) 

ERFC (2) 

EVENT (1) 

EXCEPT I ONEVENT (3) 

EXCEPTIONTASK (3) 

EXCHANGE (2) 

EXP (2) 

EXPONENTOVERFLOW (3) 

EXPONENTUNDERFLOW ( 3 ) 

EXPORT (2) 

EXTERNAL (2) 

FALSE ( 1 ) 

FAMILY (3) 

FILE (1) 

FILECARDS (3) 

FILES (3) 

FILL (2) 

FIRST (2) 

FIRSTONE (2) 

FIRSTWORD (2) 

FIX (2) 

FOR (1) 

FORMAL (2) 

FORMAT ( 1 ) 

FORWARD (2) 

FREE (2) 

FREEZE (2) 

FUNCTIONNAME (3) 

GAMMA (2) 

GEQ (2) 

GO (1) 

GTR (2) 

HAPPENED (2) 

HEAD (2) 

HEX (2) 

HEXTOASCII (3) 

HEXTOBCL (3) 

HEXTOEBCDIC (3) 

HISTORY (3) 

IF (1) 



IMAG (2) 

IMP (2) 

IN (2) 

INITIATOR (3) 

INTEGER (1) 

INTEGEROVERFLOW (3) 

INTEGERT (2) 

INTERRUPT (2) 

INTNAME (3) 

INVALIDADDRESS (3) 

INVALIDINDEX (3) 

INVALIDOP (3) 

INVALIDPROGRAMWORD (3) 

IS (2) 

ISNT (2) 

JOBNUMBER (3) 

LABEL (1) 

LB (2) 

LENGTH (2) 

LEQ (2) 

LIBACCESS (3) 

LIBERATE (2) 

LIBPARAMETER (3) 

LIBRARIES (3) 

LIBRARY (2) 

LINE (2) 

LINENUMBER (2) 

LINKLIBRARY (2) 

LIST (1) 

LISTLOOKUP (2) 

LN (2) 

LNGAMMA (2) 

LOCK ( 2 ) 

LOCKED (3) 

LOG (2) 

LONG (1) 

LOOP (3) 

LSS (2) 

MASKSEARCH (2) 

MAX (2) 

MAXCARDS (3) 

MAXIOTIME (3) 

MAXLINES ( 3 ) 

MAXPROCTIME (3) 

MEMORYPARITY (3) 

MEMORYPROTECT (3) 

MERGE (2) 

MESSAGESEARCHER (2) 

MIN (2) 

MOD (2) 

MONITOR (2) 
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Reserved Words, Continued 



MUX (2) 

MY JOB (2) 

MYSELF (2) 

NABS (2) 

NAME (3) 

NEQ (2) 

NO (2) 

NORMALIZE (2) 

NOT (2) 

NUMERIC (2) 

OF (2) 

OFFER (3) 

OFFSET (2) 

ON (2) 

ONES (2) 

OPEN (2) 

OPTION (3) 

OR (2) 

ORGUNIT (3) 

OUT (3) 

OUTPUTMESSAGE (2) 

OWN (1) 

PACK (3) 

PAGED (3) 

PARTNER (3) 

PERMANENT (3) 

PICTURE (2) 

POINTER (1) 

POTC (2) 

POTH (2) 

POTL (2) 

PRIVATELIBRARIES (3) 

PROCEDURE (1) 

PROCESS (2) 

PROCESSID (2) 

PROCESSIOTIME (3) 

PROCESSTIME (3) 

PROCURE (2) 

PROGRAMDUMP (2) 

PROGkAMMEDOPERATOR (3) 

PURGE (2) 

RANDOM (2) 

RB (2) 

READ (2) 



READLOCK (2) 
REAL (1) 
REEL (3) 
REFERENCE (1) 
REMAIN INGCHARS (2) 
REMOVEFILE (2) 
REPEAT ( 2 ) 
REPLACE (2) 
RESET (2) 
RESIZE (2) 
RESTART (3) 
RETAIN (3) 
REWIND (2) 
RUN (2) 
SCALELEFT (2) 
SCALERIGHT (2) 
SCALERIGHTF (2) 
SCALERIGHTT (2) 
SCAN (2) 
SCANPARITY (3) 
SDIGITS (2) 
SECONDWORD (2) 
SEEK (2) 
SET (2) 

SETACTUALNAME (2) 
SIBS (3) 
SIGN (2) 
SIN (2) 
SINGLE (2) 
SINE (2) 
SIZE (2) 
SKIP (2) 
SORT (2) 
SPACE (2) 
SQRT (2) 
STACKER (2) 
STACKNO (3) 
STACKSIZE (3) 
STARTTIME (3) 
STATION (2) 
STATUS (3) 
STEP (1) 
STOP (2) 
STORPOINT (3) 



STRING (2) 
STRINGPROTECT (3) 
STRING4 (2) 
STRING? (2) 
STRINGS (2) 
SUBFILE (2) 
SUBSPACES (3) 
SWITCH (1) 
TADS (3) 
TAIL (2) 
TAKE (2) 
TAN (2) 
TANK (2) 
TARGETTIME (3) 
TASK (1) 
TASKATTERR (3) 
TASKFILE (3) 
TASKVALUE (3) 
TEMPORARY (3) 
THEN (1) 
THRU (2) 
TIME (2) 
TIMELIMIT (2) 
TIMES (2) 
TITLE (3) 
TO (2) 

TRANSLATE (2) 
TRANSLATETABLE (1) 
TRUE (1) 
TRUTHSET (1) 
TYPE (3) 
UNTIL (1) 
USERCODE (3) 
VALUE (1) 
WAIT (2) 

WAITANDRESET (2) 
WHEN (2) 
WHILE (1) 
WITH (2) 
WORDS (2) 
WRITE (2) 
ZERODIVIDE (3) 
ZIP (1) 



Reserved Words 
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RI SSERVED WORDS BY TYPE 



Type 1 Reserved Words 




ALPHA 


FILE 


ARRAY 


FOR 


BEGIN 


FORMAT 


BOOLEAN 


GO 


COMMENT 


IF 


CONTINUE 


INTEGER 


DIRECT 


LABEL 


DO 


LIST 


DOUBLE 


LONG 


ELSE 


OWN 


END 


POINTER 


EVENT 


PROCEDURE 


FALSE 


REAL 



REFERENCE 

STEP 

SWITCH 

TASK 

THEN 

TRANSLATETABLE 

TRUE 

TRUTHSET 

UNTIL 

VALUE 

WHILE 

ZIP 



T ype 2 Reserved Words 



ABS 


CLOSE 


DIGITS 


ACCEPT 


COMPILETIME 


DIMP 


AND 


COMPLEX 


DINTEGER 


ARCCOS 


CONJUGATE 


DISABLE 


ARCSIN 


COS 


DISPLAY 


ARCTAN 


COSH 


DIV 


ARCTAN2 


COTAN 


DLGAMMA 


ARRAYSEARCH 


CSIN 


DLN 


ASCII 


CSQRT 


DLOG 


ATANH 


DABS 


DMAX 


ATTACH 


DAND 


DMIN 


AVAILABLE 


DARCCOS 


DNABS 


BCL 


DARCSIN 


DNOT 


BREAKPOINT 


DARCTAN 


DONTWAIT 


BY 


D ARCTAN 2 


DOR 


CABS 


DCOS 


DROP 


CALL 


DCOSH 


DSCALELEFT 


CALLING 


DEALLOCATE 


DSCALERIGHT 


CANCEL 


DECIMAL 


DSCALERIGHTT 


CASE 


DEFINE 


DSIN 


CAT 


DELINKLIBRARY 


DSINH 


CAUSE 


DELTA 


DSQRT 


CAUSEANDRESET 


DEQV 


DTAN 


CCOS 


DERF 


DTANH 


CEXP 


DERFC 


DUMP 


CHANGEFILE 


DETACH 


EBCDIC 


CHECKPOINT 


DEXP 


EMPTY 


CHECKSUM 


DGAMMA 


EMPTY4 


CLN 


DICTIONARY 


EMPTY? 
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Type 2 Reserved Words. Continued 



EMPTY8 

ENABLE 

ENTIER 

EQL 

EQV 

ERF 

ERFC 

EXCHANGE 

EXP 

EXPORT 

EXTERNAL 

FILL 

FIRST 

FIRSTONE 

FIRSTWORB 

FIX 

FORMAL 

FORWARD 

FREE 

FREEZE 

GAMMA 

GEQ 

GTR 

HAPPENED 

HEAD 

HEX 

IMAG 

IMP 

IN 

INTEGERT 

INTERRUPT 

IS 

ISNT 

LB 

LENGTH 

LEQ 

LIBERATE 

LIBRARY 

LINE 

LINENUMBER 

LINKLIBRARY 

LISTLOOKUP 

LN 

LNGAMMA 

LOCK 



LOG 

LSS 

MASKSEARCH 

MAX 

MERGE 

MESSAGESEARCHER 

MIN 

MOD 

MONITOR 

MUX 

MYJOB 

MYSELF 

NABS 

NEQ 

NO 

NORMALIZE 

NOT 

NUMERIC 

OF 

OFFSET 

ON 

ONES 

pPEN 

OR 

OUTPUTMESSAGE 

PICTURE 

POTC 

POTH 

POTL 

PROCESS 

PROCESS ID 

PROCURE 

PROGRAMDUMP 

PURGE 

RANDOM 

RB 

READ 

READLOCK 

REMAIN I NGCHARS 

REMOVEFILE 

REPEAT 

REPLACE 

RESET 

RESIZE 

REWIND 



RUN 

SCALELEFT 

SCALERIGHT 

SCALERIGHTF 

SCALERIGHTT 

SCAN 

SDIGITS 

SECONDWORD 

SEEK 

SET 

SETACTUALNAME 

SIGN 

SIN 

SINGLE 

SINH 

SIZE 

SKIP 

SORT 

SPACE 

SQRT 

STACKER 

STATION 

STOP 

STRING 

STRING4 

STRING? 

STRINGS 

SUBFILE 

TAIL 

TAKE 

TAN 

TANH 

THRU 

TIME 

TIMELIMIT 

TIMES 

TO 

TRANSLATE 

WAIT 

WAITANDRESET 

WHEN 

WITH 

WORDS 

WRITE 



T ype 3 Reserved Words 



Reserved Words 
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ACTUALNAME 

ALL 

ALPHA6 

ALPHA7 

ALPHAS 

ANY FAULT 

ARRAYS 

ASCIITOBCL 

ASCIITOEBCDIC 

ASCIITOHEX 

BACKUPPREFIX 

BASE 

BCLTOASCII 

BCLTOEBCDIC 

BCLTOHEX 

BYFUNCTION 

BYTITLE 

CHARGECODE 

CLASS 

CODE 

COMPILETYPE 

COREESTIMATE 

CRUNCH 

DBS 

DECIMALPOINTISCOMMA 

DECLAREDPRIORITY 

DISCARD 

DISK 

DISKPACK 

EBCDICTOASCII 

EBCDICTOBCL 

EBCDICTOHEX 

ELAPSEDTIME 



EXCEPT I ONEVENT 

EXCEPT! ONTASK 

EXPONENTOVERFLOW 

EXPONENTUNDERFLOW 

FAMILY 

FILECARDS 

FILES 

FUNCTIONNAME 

HEXTOASCII 

HEXTOBCL 

HEXTOEBCDIC 

HISTORY 

INITIATOR 

INTEGEROVERFLOW 

INTNAME 

INVALID ADDRESS 

INVALIDINDEX 

INVALIDOP 

I N VAL I DPROGRAMWORD 

JOBNUMBER 

LIBACCESS 

LIBPARAMETER 

LIBRARIES 

LOCKED 

LOOP 

MAXCARDS 

MAXIOTIME 

MAXLINES 

MAXPROCTIME 

MEMORYPARITY 

MEMORYPROTECT 

NAME 

OFFER 

OPTION 



ORGUNIT 

OUT 

PACK 

PAGED 

PARTNER 

PERMANENT 

PRIVATELIBRARIES 

PROCESSIOTIME 

PROCESSTIME 

PROGRAMMEDOPERATOR 

REEL 

RESTART 

RETAIN 

SCANPARITY 

SIBS 

STACKNO 

STACKSIZE 

STARTTIME 

STATUS 

STORPOINT 

STRINGPROTECT 

SUBSPACES 

TADS 

TARGETTIME 

TASKATTERR 

TASKFILE 

TASKVALUE 

TEMPORARY 

TITLE 

TYPE 

USERCODE 

ZERODIVIDE 
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DATA REPRESENTATION 



F IELD NOTATION 



The notation "[mm]" is used in this manual to describe fields within 
data words. The 48 accessible bits of a data word are considered to be 
numbered, with the leftmost bit numbered as bit 47 and the rightmost bit 
numbered as bit 0. In the notation [mm], "m" denotes the number of the 
leftmost bit of the field being described, and "n" denotes the number of 
bits in the field. For example, the field indicated by the shaded area 
in Figure B-1 (bits 28 through 24) is described as [28:5]. 



47 



46 



45 



43 



42 



41 



40 



39 



38 



37 



36 




15 



14 



13 



12 



11 



10 



Figure B-1. Field Notation, [28:5] 



All data words have a field associated with them that is called the 
"tag" of the word. The tag identifies the type of the data word; that 
is, whether the word is an operand, descriptor, and so on. The tag is 
not accessible to ALGOL programs. 



Hexadecimal format is used extensively in this manual to indicate word 
contents. This format is particularly suited to describe the value of a 
data word, because each hexadecimal digit indicates the contents of a 
4-bit field. Such fields can be visualized as the columns in Figure 

B-1. 
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CHARACTER REPRESENTATION 



Characters are stored in fields of one, two, three, four, six, or eight 
bits. In the table below, the Character Type column lists the valid 
ALGOL character types. The Field Size and Bits Used columns show the 
field size in bits and the number of bits within that field, 
respectively, that are used for storing each type of character. The 
Valid Constructs column shows the character-oriented ALGOL constructs 
that are used to manipulate each character type. 



Field Bits 
Character Type Size Used Valid Constructs 



EBCDIC 8 8 pointer, character array, 

string, string literal 
^SCII 8 7 pointer, character array, 

string, string literal 
S^L b 6 pointer, character array, 

string literal 
Hexadecimal (HEX) 4 4 pointer, character array, 

string, string literal 
Octal 3 3 string literal 

Quaternary 2 2 string literal 

Binary i i string literal 



Figures B-2 through B-5 illustrate how the various character types are 
stored within a data word. 



Data Representation 
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1 




1 




2 

1 


3 

1 


4 

1 


1 


> 


/ — ^ \y^ 




\/ 


V^ 


\/ 


\/ 


\ 




47 


43 


39 


35 


31 


27 


23 


19 


15 


11 


7 


3 




46 


42 


38 


214 


30 


26 


22 


18 


14 


10 


6 


2 




45 


41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 




44 


40 


36 


32 


28 


24 


20 


16 


12 


8 


4 





M 


Char 


T— " 

p:iifica 

acter 


nt 
















X ^ / 

Least Signif icar 
Character 



Figure B-2. EBCDIC Characters (8-Bit Fields) 



Figure B-3 shows that ASCII characters, which are 7-bit characters, are 
stored in 8-bit fields (as are EBCDIC characters). The zeros shown for 
bits 7. 15, 23. 31, 39, and 47 indicate that these bits are when ASCII 
characters are stored.. 
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47 



46 



43 



42 



41 







39 



38 



37 



44 40 36 32 
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Most Significant 
Character 



■XA 



35 



34 



33 







31 



30 



29 



23 



~\X 



27 



26 



25 



24 







23 



22 



21 



20 



"X/^ 



"X" 



19 



18 



17 



16 







15 



14 



13 



12 



11 



10 







\_ 



\ 



y 



Least Significant 
Character 



Figure B-3. ASCII Characters (8-Bit Fields) 
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Most Significant 

Cliaracter 





\ 



/" 



4 

_L 



6 



A 



/^ 



■\ 



47 


43 


39 


35 


31 


27 


23 


18 


15 


11 


7 


3 


46 


42 


3B 


34 


30 


26 


22 


le 


14 


10 


6 


2 


45 


41 


37 


33 


28 


25 


21 


17 


13 


9 


5 


1 


44 


40 


36 


32 


28 


24 


2C 


16 


12 


e 


4 






y 



\. 



\ 



y 



^ r—^ 



Figure B-4. BCL Characters (b-Bit Fields) 



Least Significant 
Oxaracter 



0123456789 10 11 
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43 


39 


35 


31 


27 


23 


18 


15 


11 


7 


3 


46 


42 


38 


34 


30 


26 


22 


18 


14 


10 


6 


2 


45 


41 


37 


33 


29 


25 


21 


17 


13 


9 


5 


1 


44 


40 


36 


32 


28 


24 


20 


16 


12 


8 


4 






Most 
Significant 
Character 



Least 
Significant 
Character 



Figure B-5. Hexadecimal Characters (4-Bit Fields) 
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Character Values and G raphics 



The following is a list of the 256 EBCDIC values represented in binary, 
octal, decimal, and hexadecimal formats. The corresponding BCL, ASCII, 
and EBCDIC graphics (as they appear when printed using an EBCDIC96 print 
train) are also shown. In the EBCDIC column, corresponding standard 
mnemonics appear for some nonprintable EBCDIC values. 



Binary Octal Decimal Hexadecimal BCL ASCII EBCDIC 



00000000 


000 





00 





NUL 


00000001 


001 


1 


01 


1 


SOH 


00000010 


002 


2 


02 


2 


STX 


00000011 


003 


3 


03 


3 


ETX 


00000100 


004 


4 


04 


4 




00000101 


005 


5 


05 


5 


HT 


00000110 


006 


6 


06 


6 




00000111 


007 


7 


07 


7 


DEL 


00001000 


010 


8 


018 


8 




00001001 


oil 


9 


09 


9 




00001010 


012 


10 


OA 


i^ 




00001011 


013 


11 


OB 


§ 


VT 


00001100 


014 


12 


OC 


? 


FF 


00001101 


015 


13 


OD 


: 


CR 


00001110 


016 


14 


OE 


> 


SO 


00001111 


017 
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01011010 
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91 


5B 


01011100 
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92 


5C 
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93 
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5E 
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95 


5F 
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96 


60 
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141 


97 


61 
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142 


98 


62 


01100011 


143 


99 
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100 


64 


01100101 


145 


101 


65 


01100110 


146 
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66 


01100111 


147 


103 


67 


01101000 


150 


104 


68 


01101001 


151 


105 


69 


01101010 


152 


106 


6A 


01101011 
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107 


6B 


01101100 


154 


108 


6C 


01101101 


155 


109 


6D 


01101110 


156 


110 


6E 


01101111 


157 


111 


6F 


01110000 


160 


112 


70 


01110001 


161 


113 


71 


01110010 


162 


114 


72 


01110011 


163 


115 


73 


01110100 


164 


116 


74 


01110101 


165 


117 


75 


01110110 


166 


118 


76 


01110111 


16 7 


119 


77 


01111000 


170 


120 


78 


01111001 


171 


121 


79 


01111010 


172 


122 


7A 


01111011 


173 


123 


7B 


01111100 


174 


124 


7C 


01111101 


175 


125 


7D 


01111110 


176 


126 


7E 


01111111 


177 


127 


7F 


10000000 


200 


128 


80 


10000001 


201 


129 


81 


10000010 


202 


130 


82 


10000011 


203 


131 


83 


10000100 


204 


132 


84 


10000101 


205 


133 


85 


10000110 


206 


134 


86 


10000111 
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87 
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137 
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10001010 
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10001011 


213 


139 


8B 


10001100 


214 


140 


8C 


10001101 


215 


141 


8D 


10001110 


216 


142 


8E 


10001111 


217 


143 


8F 


10010000 


220 


144 


90 


10010001 


221 


145 


91 


10010010 


222 


146 


92 


10010011 


223 


147 


93 


10010100 


224 


148 


94 


10010101 


225 


149 


95 


10010110 


226 


150 


96 


10010111 


227 


151 


97 


10011000 


230 


152 


98 


10011001 


231 


153 


99 


10011010 


232 


154 


9A 


10011011 


233 


155 


9B 


10011100 


234 


156 


9C 


10011101 


235 


157 


9D 


10011110 


236 


158 


9E 


10011111 


237 


159 


9F 


10100000 


240 


160 


AO 


10100001 


241 


161 


Al 


10100010 


242 


162 


A2 


10100011 


243 


163 


A3 


10100100 


244 


164 


A4 


10100101 


245 


165 


A5 


10100110 


246 


166 


A6 


10100111 


247 


167 


A7 


10101000 


250 


168 


A8 


10101001 


251 


169 


A9 


10101010 


252 


170 


AA 


10101011 


253 


171 


AB 


10101100 


254 


172 


AC 


10101101 


255 


173 


AD 


10101110 


256 


174 


AE 


10101111 


257 


175 


AF 


10110000 


260 


176 


BO 


10110001 


261 


177 


Bl 


10110010 


262 


178 


B2 


10110011 


263 


179 


B3 


10110100 


264 


180 


B4 


10110101 


265 


181 


B5 


10110110 


266 


182 


B6 


10110111 


267 


183 


B7 


10111000 


270 


184 


BS 


10111001 


271 


185 


B9 


10111010 


272 


18b 


BA 


10111011 


273 


187 


BE 
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10111100 


274 


188 


BC 


10111101 


275 


189 


BD 


10111110 


276 


190 


BE 


10111111 


277 


191 


BF 


11000000 


300 


192 


CO 


11000001 


301 


193 


CI 


11000010 


302 


194 


C2 


11000011 


303 


195 


C3 


11000100 


304 


196 


C4 


11000101 


305 


197 


C5 


11000110 


306 


198 


C6 


11000111 


307 


199 


C7 


11001000 


310 


200 


C8 


11001001 


311 


201 


C9 


11001010 


312 


202 


CA 


11001011 


313 


203 


CB 


11001100 


314 


204 


CC 


11001101 


315 


205 


CD 


11001110 


316 


206 


CE 


11001111 


317 


207 


CF 


11010000 


320 


208 


DO 


11010001 


321 


209 


Dl 


11010010 


322 


210 


D2 


11010011 


323 


211 


D3 


11010100 


324 


212 


D4 


11010101 


325 


213 


D5 


11010110 


326 


214 


D6 


11010111 


327 


215 


D7 


11011000 


330 


216 


D8 


11011001 


331 


217 


D9 


11011010 


332 


218 


DA 


11011011 


333 


219 


DB 


11011100 


334 


220 


DC 


11011101 


335 


221 


DD 


11011110 


336 


222 


DE 


11011111 


337 


223 


DF 


11100000 


340 


224 


EO 


11100001 


341 


225 


El 


11100010 


342 


226 


E2 


11100011 


343 


227 


E3 


11100100 


344 


228 


E4 


11100101 


345 


229 


E5 


11100110 


346 


230 


E6 


11100111 


347 


231 


E7 


11101000 


350 


232 


E8 


11101001 


351 


233 


E9 


11101010 


352 


234 


EA 


11101011 


353 


235 


EB 


11101100 


354 


236 


EC 
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11101101 


355 


237 


ED 


11101110 


35b 


238 


EE 


11101111 


357 


239 


EF 


11110000 


360 


240 


FO 


11110001 


361 


241 


Fl 


11110010 


362 


242 


F2 


11110011 


363 


243 


F3 


11110100 


364 


244 


F4 


11110101 


365 


245 


F5 


11110110 


366 


246 


Ffc 


11110111 


367 


247 


F7 


11111000 


370 


248 


F8 


11111001 


371 


249 


F9 


11111010 


372 


250 


FA 


11111011 


373 


251 


FB 


11111100 


374 


252 


FC 


11111101 


375 


253 


FD 


11111110 


376 


254 


FE 


11111111 


377 


255 


FF 
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Default Character Type 



The default character type is the character type assumed by pointers, 
string variables, string literals, and so on when a character type is 
not explicitly specified. The default character type is also used as 
the default value of the INTMODE file attribute. For more information 
on INTMODE, refer to the "I/O Subsystem Reference Manual." 



Two compiler control options affect the default character type: the 
ASCII option and the BCL option. (For more information, refer to the 
ASCII option and the BCL option under "<ASCII option>" and "<BCL 
option>," respectively, in the "Compiling Programs" chapter.) If the 
ASCII option is TRUE, the default character type is ASCII. If the BCL 
option is TRUE, the default character type is BCL. If neither the ASCII 
option nor the BCL option is TRUE, the default character type is EBCDIC. 



Free-field and formatted I/O generate either EBCDIC or BCL data 
depending on the default character type. If the default character type 
is BCL, BCL data is generated. If the default character type is EBCDIC 
or ASCII, EBCDIC data is generated. 



The example programs below demonstrate the effects of different default 
character types. 



See also 

<ASCII option>. . 603 

<BCL option> e05 



Examples 

%%% PROGRAM 1 %%% 

BEGIN 

% OPTION RECORD 

FILE F(KIND=DISK,NEWFILE=TRUE); 

ARRAY A[0:9]: 

POINTER P; 

STRING S: X DECLARATION OF S 

OPEN ( F ) ; 

P := POINTER(A): 

S := "ABC"; /i STRING ASSIGNMENT 
END . 
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If this example is compiled and executed as is, the default character 
type is EBCDIC. Thus, the INTMODE attribute of file F is EBCDIC, the 
character size of pointer P is eight bits, the string type of string S 
is EBCDIC, and, after the string assignment is executed, S contains the 
EBCDIC string "ABC". 



If "% OPTION RECORD" on the third line is replaced by the compiler 
control record "$ SET ASCII", and the program is compiled and executed, 
the default character type is ASCII. Thus, the INTMODE of file F is 
ASCII, the character size of pointer P is eight bits, the string type of 
string S is ASCII, and, after the string assignment is executed, S 
contains the ASCII string "ABC". 



If program 1 is compiled after "% OPTION RECORD" is replaced by the 
compiler control record "$ SET BCL" , the default character type is BCL 
and the program is flagged with two syntax errors — one on the 
declaration of string S and one on the string assignment — because string 
variables cannot be of type BCL. 



%%% PROGRAM 2 %%% 

BEGIN 

$ SET BCL 

FILE F(KIND=DISK,NEWFILE=TRUE); 

ARRAY A[0:9]; 

POINTER P; 

OPEN(F); 

P := POINTER(A); 

REPLACE P BY "ABC"; % REPLACE STATEMEN: 
END. 



Program 2 contains the compiler control record "$ SET BCL" and has no 
string constructs. It compiles without error. If program 2 is compiled 
and executed, the default character type is BCL. Thus, the INTMODE of 
file F is BCL, the character size of pointer P is six bits, and, after 
the REPLACE statement is executed, P references the BCL characters "ABC" 
stored in array A. 



Program 2 is flagged with a warning message when it is compiled, because 
the BCL character type is not supported on all A Series and 
B 5000/B feOOO/B 7000 Series systems. 
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Certain operations in ALGOL require an indication of a numeric sign in 
character data. The sign of a numeric field is represented as follows: 

8-bit characters The sign is in the zone field of the least 

significant character (field [7;4] of the character). 
A bit configuration of 1"1101" (4"D") indicates a 
negative number; any other bit configuration 
indicates a positive number. 

6-bit characters The sign is in the zone field of the least 

significant character (field [5:2] of the character). 
A bit configuration of 1"10" indicates a negative 
number; any other bit configuration indicates a 
positive number. 

4-bit digits The sign is carried as a separate digit, and it is 

,the most significant digit of the field. A bit 
configuration of 1"1101" (4"D") indicates a negative 
number; any other bit configuration indicates a 
positive number. 
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ONE-WORD OPERAND 



Real, integer, and Boolean operands each require one word of storage 



Real operand 



Th 



e internal structure of a real operand is illustrated in Figure B-6 
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Use 



Tag 
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C 

Not used 

Sign of mantissa: 1 

Sign of exponent: 1 

Exponent 
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= negative, 
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Figure B-b. Real Operand 



Real (single-precision. floating-point) values are represented 
internally in signed-magnitude, mantissa-and-exponent notation. The 
sign of the mantissa is contained in bit 4b. and the sign of the 
exponent is contained in bit 45. A minus sign is denoted by a 1 in the 
appropriate sign bit. The magnitude of the exponent is contained in 
field [44:6]; hence, the maximum absolute value of an exponent in a real 
operand is 2**6-1 = 63. The magnitude of the mantissa is contained in 
field [38:39]; hence, the maximum absolute value of a mantissa in a real 
operand is 2**39-1. Tnere is an implied radix point to the right of bit 
zero. 



Data Representation 

The value represented by a real operand can be obtained by the following 
formula: 

(mantissa) * 8-* { exponent ) 



Certain operations, such as the NORMALIZE function, return a 
"normalized" real operand as their result. A normalized real operand is 
a real operand in which the leftmost octade (3-bit field) of the 
mantissa is nonzero. For example, the real value 0.5, in normalized 
form, is represented internally as 4"26C000000000" . In this example, 
the mantissa is 4 '^ 8**12 and the exponent is -13. 



Integer Operand 



The internal structure of an integer operand is illustrated in Figure 
B-7. 
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Not used 

Sign: 1 = negative, = positive 

Not used 



Magnitude 



Figure B-7. Integer Operand 



Integer values are represented internally in signed-magnitude notation. 
The sign of the value is denoted by bit 46 of the data word. A minus 
sign is denoted by a 1 in bit 46. The magnitude of the value is stored 
in field [38:39]. The maximum absolute value of an integer operand is 
2**39-1. There is an implied radix point to the right of bit zero. 
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For example, the internal representation of the integer 10 is 

4"0O0000O0000A" 
The internal representation of -10 is 

4"40000000000A" 
The internal representation of 99,999,999,999 is 

4"00174876E7FF" 
The internal representation 

4"007FFFFFFFFF" 

represents the decimal value 549,755,813,887 (the maximum value an 
integer operand can contain). A larger value would have to be stored in 
a real operand or a double-precision operand. 

Note that the internal format of an integer operand is the same as the 
internal format of a real operand with an exponent of zero. 
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Boolean Operand 



The internal structure of a Boolean operand is illustrated in Figure 
B-8. 
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[47:47] 



[0:1] 





Any bit or field within this field can be referenced 

as a Boolean value using the <partial word part> or 

<concatenation> constructs. 

The Boolean value of the operand as a whole. 

Figure B-8. Boolean Operand 



Boolean operations are performed on a bit-by-bit basis on all 48 bits of 
a Boolean operand. The one exception Is the NOT operation performed on 
an arithmetic relation, where NOT is performed on the low-order bit (bit 
zero), but not necessarily on the other 47 bits. However, when a 
Boolean operand is referenced as a whole, only the low-order bit (bit 
zero) is significant (0 is FALSE, 1 is TRUE). 



In Figure B-8, the shaded V's indicate that each bit of the entire 
48-bit Boolean operand can be used to store an individual Boolean value. 
The individual bits can be referenced by using the <partial word part) 
and <concatenation> constructs. 
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Double-precision and complex operands each require two words of storage 



Double-Precision Operand 



The internal structure of a double-precision operand is illustrated in 
Figures B-9 and B-10. 
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Figure B-9. First Word, Double-Precision Operand 
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Tag 

[47:9] 

[38:39] 



Use 



Most significant portion of the exponent 
Least significant portion of the mantissa 



Figure B-10. Second Word, Double-Precision Operand 



Double-precision values are represented internally in signed-magnitude, 
mantissa-and-exponent notation. The sign of the mantissa is contained 
in bit 4b of the first data word, and the sign of the exponent is 
contained in bit 45 of the first data word. A minus sign is denoted by 
a 1 in the appropriate sign bit. 



The magnitude of the exponent of a double-precision operand is contained 
in a total of 15 bits. The most significant nine of these 15 bits are 
contained in field [47:9] of the second data word. The least 
significant six of these 15 bits are contained in field [44:6] of the 
first data word. 



The magnitude of the mantissa of a double-precision operand is 
represented by a total of 78 bits. The most significant 39 bits are 
contained in field [38:39] of the first data word. The least 
significant 39 bits are contained in field [38:39] of the second data 
word. There is an implied radix point to the right of bit zero of the 
first data word; that is. between the most significant and least 
significant parts of the mantissa. 
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The value represented by a double-precision operand can be obtained by 
the following formula: 

(MM + LM * 8**(-13)) * 8**(ME * 2**6 + LE) 

where 

- MM Is the most significant part of the mantissa. 

- LM is the least significant part of the mantissa. 

- ME is the most significant part of the exponent. 

- LE is the least significant part of the exponent. 

Certain operations return a "normalized" double-precision operand as 
their result. A normalized double-precision operand is a 
double-precision operand in which the leftmost octade (3-bit field) of 
the full 78-bit mantissa is nonzero. For example, the double-precision 
value 1(3(30, in normalized form, is represented internally as 

4"261000000000" , 4"00000000000C" 
In this example, the mantissa is 1 * 8**12 and the exponent is -12. 

Complex Operand 



A complex operand requires two words of storage. The first word 
contains the real part of the complex value: the second word contains 
the imaginary part. The internal structure of both the real and 
imaginary parts of the complex value is identical to the internal 
structure of a real operand. (For more information, refer to "Real 
Operand" in this appendix.) 
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DATA DESCRIPTORS AND POINTER 



An unindexed data descriptor is the mechanism used on A Series and 
B 5000/B 6000/B 7000 Series systems to represent the contents of an 
array. An indexed data descriptor is used to reference one element of a 
word array. A pointer references one character within a word or 
character array. 



The internal structures of, unindexed data descriptors, indexed data 
descriptors, and pointers are illustrated in Figures B-11, B-12, and 
B-13, respectively. 
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Field 



Use 



Tag 

[47:1] 

[46:1] 

[45:1] 

[44:1] 

[43:1] 

[42:3] 



[39:20] 
[19:20] 



Presence bit: 1 = present, = absent 

Copy bit: 1 = copy, = mom (original) 

Indexed bit: = un indexed 

Paged bit: 1 = paged, = unpaged 

Read-only bit: 1 = read-only. = read/write 

Element size (type of the array): 

= single precision, 1 = double precision. 

2 = hexadecimal, 3 = BCL, 4 = EBCDIC/ASCII 
Length (number of elements in the array) 
Address: 

- When present, the memory address of the beginning 

of the array 

- When absent and mom, the software-encoded address 
of the array in storage 

- When absent and copy, the memory address of the 
associated mom descriptor 

Figure B-11. Unindexed Data Descriptor 
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Use 



Presence bit: 1 = present, = absent 

Copy bit: 1 = copy 

Indexed bit: 1 = indexed 

Paged bit: = unpaged 

Read-only bit: 1 - read-only, = read/write 

Element size (type of tne array): 

= single precision. 1 = double precision 
Index of the element in the array (relative to 

zero) 
Address: 

- When present, the memory address of the beginning 
of the array 

- When absent, the memory address of the associated 
unindexed mom data descriptor 



Figure B-12. Indexed Data Descriptor 
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1] 
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1] 
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3] 


[39: 


4] 


[35. 


16] 



[19:20] 



Use 



Presence bit: 1 = present, = absent 

Copy bit: 1 = copy 

Indexed bit: 1 = indexed 

Paged bit: = unpaged 

Read-only bit: 1 = read-only, = read/write 

Element size (type of the pointer): 

2 = hexadecimal, 3 = BCL, 4 = EBCDIC/ASCII 
Character index: the zero-relative index in the 

word of the referenced character 
Word index: the zero-relative index in the array of 

the referenced word 
Address: 

- When present, the memory address of the beginning 
of the array 

- When absent, the memory address of the associated 
unindexed mom data descriptor 



Figure B-13. Pointer 
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Free- field Input 

The meanings of the format-error numbers pertaining to free-field input 
are given in the follovjing table. 

Number Error Message 



400 An error occurred on free-field input. 

41b Evaluation of a list element caused an I/O action on the current 
file. 

420 Input from the <core-to-core file part> required more records 
than allowed by the <core-to-core blocking part >. 

442 The input data corresponding to a single-precision list element 
consisted of a hexadecimal string of more than 12 significant 
digits. 

443 The input data contained a hexadecimal string containing 
nonhexadecimal characters, 

444 The input data corresponding to a double-precision list element 
consisted of a hexadecimal string of more than 24 significant 
digits. 

462 The next list element was a pointer, and the corresponding input 
data consisted of a quoted string that had been only partially 
assigned. 

467 The input data contained a value greater than the maximum value 
allowed for the corresponding list element. 

473 The input data contained a strin:g with no trailing quotation mark 
character. 

484 An expression was used as a list element on input. 
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Formatted Output 



The meanings of the format-error numbers pertaining to formatted output 
are given in the following table. 



Number Error Message 



IOC An error occurred on formatted output. 

102 The editing phrase letter was V, and the data specified by the 
list element did not produce an A, C. D. E, F, G. H, I, J, K, L. 
0, P. R, S. T, U, X, or Z in the appropriate character position, 

103 The editing phrase was of the form rV . and the resulting 
specifier required a <field width"-. 

104 The editing phrase was of the form rV. and the resulting 
specifier required a <field width> and <decimal places>. 

105 The editing phrase was of the form Fw.d, and d was less than 
zero. 

lOfc The editing phrase used was Fw.d, and d was less than zero. 

107 The editing phrase used was Ew.d or Dw.d, and d was less than 
zerc. 

10<^ The editing phrase used was Zw, and the corresponding list 
element was not of type INTEGER or BOOLEAN. 

110 The type of the input data was not compatible with the type of 
the corresponding list element. 

111 The editing phrase was of tne form Zw.d. The phrase chosen to 
edit the output was Ew.d. but d was less than zero. 

113 The editing phrase used was Ew.d or Dw.d, and w was less than or 
equal to d. 

114 The value of a dynamic w or d part was greater than the maximum 
allowable integer ( 54<5 , 755 . 813 . 887 ,) . 

116 Evaluation of a list element caused an I/O action on the current 
file (recursive I/O). 

117 An attempt was made to write a number of characters greater than 
the record size. 

120 Output to the <core-tc-core file part> required more records than 
allowed by tne <core-to-core block.ing part>. 
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Formatted Output, continued 
Number Error Message 



131 The value of a dynamic r part was greater than the maximum 
allowable real value (4.31359146673 * 10**68). 

132 The value of a dynamic w part was greater than the maximum 
allowable integer (549.755,813.887). 

133 The value of a dynamic d part was greater than the maximum 
allowable integer (549,755.813.8187). 

163 The record size was not large enough to allow the free-field 
write specified. 
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Formatted Input 



The meanings of the format-error numbers pertaining to foirmatted input 
are given in the following table. 



Number Error Message 



200 An error occurred on formatted input. 

202 The editing phrase letter was V, and the data specified by the 
list element did not produce an A, C, D, E. F, G, H, I, J, K, L, 
0, P, R. S, T, U, X, or Z in the appropriate character position. 

203 The editing phrase was of the form rV, and the resulting 
specifier required a <field width). 

204 The editing phrase was of the form rV, and the resulting 
specifier required a <field width> and <decimal places>. 

205 The editing phrase was of the form rVw, and the resulting 
specifier required <decimal places). 

206 The editing phrase used was Fw.d, and d was less than zero. 

207 The editing phrase used was Ew.d or Dw.d, and d was less than 
zero. 

209 The editing phrase used was Zw, and the corresponding list 
element was not of type INTEGER or BOOLEAN. 

210 The type of a list element was incompatible with the 
corresponding editing phrase. 

213 The editing phrase used was Ew.d or Dw.d, and w was less than or 
equal to d. 

214 The value of a dynamic w or d part was greater than the maximum 
allowable integer (549,755,813.887). 

216 Evaluation of a list element caused an I/O action on the current 
file (recursive I/O). 

217 An attempt was made to read a number of characters greater than 
the record size, 

218 The editing phrase letter was H or K, but the input data 
contained nonblank, nonhexadecimal characters or nonblank, 
nonoctal characters, respectively. 
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Formatted Input , continued 
Number Error Message 



220 Input from the <core-to-core file part> required more records 
than allowed by the <core-to-core blocking part>. 

231 The value of a dynamic r part was greater than the maximum 
allowable real value (4.31359146673 * 10**68). 

232 The value of a dynamic w part was greater than the maximum 
allowable integer (549,755,813,887). 

233 The value of a dynamic d part was greater than the maximum 
allowable integer (549,755,813,887). 

250 Input was attempted using a U editing phrase. 

271 Input was attempted using a $ or P format modifier. 

281 The input data was invalid for an I editing phrase. 

284 An expression was used as a list element on input. 

285 The list element was of type REAL, but the corresponding input 
data contained a value greater than the maximum allowable real 
value (4.31359146673 * 10**68). 

286 The list element was of type INTEGER or BOOLEAN, but the input 
data contained a value greater than the maximum allowable integer 
(549,755.813,887). 

291 The input data corresponding to a numeric editing phrase 
contained a nondigit character in the exponent part following at 
least one valid digit. 

292 The input data corresponding to a numeric editing phrase 
contained more than one sign in the exponent part. 

293 The input data corresponding to a numeric editing phrase 
contained an invalid character after the exponent sign and before 
the exponent value. 

294 The input data corresponding to a numeric editing phrase 
contained an invalid character after the decimal point.. 

295 The input data corresponding to a numeric editing phrase 
contained more than one sign in the mantissa. 
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UN DERSTANDING RAILI^OAD DIAGRAMS 



WHAT _TS A RAILROAD DIAGRAM? 



A railroad diagram is a way of representing the syntax of a command or 
statement graphically. It shows which items are required or optional, 
the order in which they should appear, how often you can repeat them, 
and any required punctuation. 



HOW TO READ A RAILROAD DIAGRAM 



Normally, you read a railroad diagram from left to right. However, 
there are some exceptions; in those cases, arrows indicate a 
right-to-left direction. 

If a diagram is too long to fit on one line and must continue on the 
next, a right arrow (:>) appears at the end of the first line and another 
at the beginning of the next line, like this: 



The end of a railroad diagram is denoted by a vertical bar (I) or 

percent sign (%). The vertical bar means the command or statement can 

be followed by a semicolon and another command or statement. The 

percent sign means the command or statement must be on a line by itself. 



CONSTANTS AND VARIABL ES 

consider a hypothetical command for giving instructions to a house 
painter : 



— PAINT 



- THE - 



- LIVING ROOK — <COlor>- 

- DINING ROOM -! 

! 

- BEDROOM ■ — ! 

I 

I 

I- BATHROOK -— ! 

I 
i- KITCHEN i 
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This command tells the painter to paint a designated room in the color 
you specify. 



The example introduces two important features of railroad diagrams: 
Constants 
Variables 

Constants 



Constants are items that you cannot vary. You must enter a constant as 
it appears in the diagram, either in full or abbreviated. If you 
abbreviate a constant, you must enter everything that is underlined in 
the railroad diagram, optionally followed by one or more of the 
remaining characters. 



You can recognize constants in railroad diagrams by the fact that they 
are never enclosed in angle brackets. 



In the example, the word PAINT is a constant. You could enter PAINT in 
full or abbreviate it to PAI or PAIN, but not to PA or PAN. If no part 
of the constant is underlined, you cannot abbreviate it at all. 



Variables 



Variables are items that you can replace with other data to suit a 
particular situation; that is. you can vary the information you enter in 
place of the variable, subject to rules defined for the particular 
command or statement. 



Variables appear in a railroad diagram enclosed in angle brackets (<>). 



In the example, <color> is a variable item. If the description of the 
PAINT command defines the allowable colors as BLUE, GREEN, PINK, and 
YELLOW, you can enter any one of these in your command. 
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F OLLOWING THE PATHS OF A RAILROAD D IAGRAM 



The paths Of a railroad diagram lead you through the diagram from 
beginning to end. They are represented by horizontal and vertical 
lines. 

A path shows the allowable syntax. Some diagrams have just one path 
that goes from the beginning to the end of the diagram. Others contain 
several paths, each covering a part of the diagram. A path shows which 
items you can include in a command or statement, which you can omit, and 
the number of times you can include a particular item or group of items. 

To' follow a path through a railroad diagram, you need to understand the 
items you may encounter along the way. These items are 

Required items and punctuation 

Optional items 

Loops 



A description of each item follows. 
Required Items and Punctuation 

Required items and punctuation must be entered in the command or 
statement: you cannot omit them. A required item appears by itself in a 
path (horizontal line). A required item can be either a constant or a 
variable. For example, if a railroad diagram indicates 

— PAINT — BEDROOM — < color > — \ 



the words PAINT and BEDROOM are required constants, and <color> is a 
required variable. You could correctly enter 

PAINT BEDROOM BLUE 



but not 

PAINT BEDROOM 

because the required item <color> would be missing 
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Optional items appear one below another in a vertical list. You can 
choose any one of the items in the list. If the list also contains an 
empty path (all dashes), you can omit the item entirely. An optional 
item can be either a variable or a constant. The PAINT command in the 
example contains two lists. The first is 



I- THE -I 

which gives you two options: 

- Enter the constant THE 

- Omit it (because there is an empty path) 

The second list has five optional constants: 



LIVING ROOM 

- DINING ROOM - 

- BEDROOM 

- BATHROOM 

- KITCHEN 



You must enter one of the optional items (LIVING ROOM, DINING ROOM, 
BEDROOM, BATHROOM, or KITCHEN) because there is no empty path in this 

list. 



Loops 



A loop is an item or group of items that you can repeat. The number of 
repetitions allowed is controlled by an item called the bridge. 
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A loop can span all or part of a railroad diagram. It always consists 
of at least two horizontal lines, one below the other, lilce this: 



|< ■ — xreturn character> — — 

I 

- — <bridge> — ^content of the loop> 



or 



<— <bridge> — < return character > — 
<content of the loop> -- — 



The bridge shows the maximum number of times you can go through the 

loop. The bridge can precede the contents of the loop,, or it can 

precede the return character on the upper line of the loop to specify 

the number of times the right-to-left path can be traversed. The bridge 

is an integer enclosed in sloping lines. / \, for example, /4\ . Not all 

loops have bridges. Those that do not can be repeated any number of 
times. 



The top line is a right-to-left path that contains information about 
repeating the loop. The return character is the character to use before 
each repetition of the loop (often, a comma). Not all loops contain a 
return character; if none is shown, just enter one or more spaces before 
repeating the loop. 

The other lines show the content of the loop (the data you enter each 
time you go through the loop). This can be any combination of optional 
items, required items, lists, and even other loops. The content of a 
loop can range from simple (one item), to very complex (many items, 
lists, and loops). 



lExaonple 1. A Simple Loop 

The PAINT command as first shown is of limited usefulness. To tell the 
painter to do several rooms, you need a separate command for each room. 
It would be much easier if you could tell him to do several rooms in one 
command. 



You can do that by making the list of rooms into a loop. The command 
would then look, like this: 
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— PAINT /5\ LIVING ROOM 

I I 

I- THE -I I- DINING ROOM - 

BEDROOM ~ 

BATHROOM 

KITCHEN ~ 



■<color > — I 



The bridge has a value of 5, so you can go through the loop up to five 
times, for a total of five rooms. The return character is a comma, 
which you must enter before repeating the loop content. 



You can now enter 

PAINT THE LIVING ROOM, BEDROOM, KITCHEN YELLOW 



or 



PAINT DINING ROOM, BEDROOM, BATHROOM BLUE 



or 



PAINT BEDROOM PINK 



or 



PAINT BEDROOM, BATHROOM, BEDROOM, BEDROOM BLUE 



or any other valid combination. 



This simple loop mak.es the PAINT command more versatile, but a 
significant drawback, remains. Although you can include up to five rooms 
in a command, you cannot specify different colors. 
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ISxample 2 . A More Coiniplex Loop 

If the content of the loop were to include the color, you could specify 
a different color for each room. 

,<_____ ___>._ ,— — 1 

i ■ I 

~ PAINT ■ /5\ LIVING ROOM <color> I 

t I I I 

i- THE -I I- DINING ROOM -I 

I I 

I- BEDROOM i 

I I 

I- BATHROOM i 

I I 

t- KITCHEN ! 

The content of the loop now consists of the 

- List of optional constants that indicate rooms 

- Required variable <color> 

The bridge value is 5, and the return character is a comma. Given this 
railroad diagram, some valid PAINT commands would be 

PAINT THE BEDROOM PINK 

PAINT THE LIVING ROOM BLUE, DINING ROOM GREEN, KITCHEN YELLOW 

PAINT BEDROOM GREEN, KITCHEN BLUE 

and so on. 
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Example 3 . Another Loop 

In some bridges an asterisk follows the number. For example, 

l<-/4*\ . 1 

I I 

— PAINT LIVING ROOM <COlor> t 

t i I 

!- THE -i I- DINING ROOM - 

I 

I- BEDROOM 

I ■ 

I- BATHROOM 

i 

i- KITCHEN 



The asterisk means you must take the right-to-left path at least once. 
You cannot, for example, enter PAINT BEDROOM BLUE; you must tell the 
painter at least two rooms to paint. The maximum number of rooms to be 
painted is still five: the first time through the loop with up to four 
repetitions. 



A valid form of the command would be 

PAINT BEDROOM BLUE, KITCHEN YELLOW 



Example 4. Another Use of the Bridge 



A bridge can also control the number of times you take an individual 
path within a loop. For example, another command to the painter might 
be: 



- WORK - 

I 

i |, 

I I 

i /1\- EVENINGS 



i-/l\- WEEKENDS -| 

I 

!-/l\- HOLIDAYS -I 
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Each bridge /1\ indicates you can take that path once or not at all. 
That is, you can enter each of the items EVENINGS, WEEKENDS, and 
HOLIDAYS once at most. Some valid commands are 

WORK EVENINGS WEEKENDS HOLIDAYS 

WORK WEEKENDS 

WORK HOLIDAYS EVENINGS 



but 



WORK EVENINGS EVENINGS 



is invalid 



A FINAL WORD 



To familiarize you with railroad diagrams, this explanation describes 
the elements of the diagrams and gives a few simplified examples. Some 
of the actual diagrams you will encounter in a book may be considerably 
more complex. 



However, the principles are the same no matter how complex the diagram. 
The more you work with railroad notation, the more easily you will 
understand even the most complex diagrams. 
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accidental entry 

See "thunlt." 

address couple 

A representatioh Of the address of an item in a program. An address 
couple consists of two numbers: the first number is a lexical 
level, and the second number is a clispiacement (offset) within that 
lexical level. 



address e<|uation 

The process of declaring an identifier to have the same address as a 
previously declared identifier. 



ASCII 



American Standard Code for Information Interchange. A 7- or 8-bit 
code representing a set of 128 control and graphic characters. 



asynchronous process 

A procedure initiated by a program as a separate task that is 
dependent on the initiating program for globals but otherwise runs 
independent of and in parallel with the initiating program. 



bad g6 to 

A GO TO statement in an inner block that transfers control to a 

label that is global to that block. A necessary side effect of a 

•*bad go to** is that the block, in which it occurs is exited abruptly 

and local variables are deallocated immediately. 



BCL 



See "Burroughs Common Language, 
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Burroughs Common Language (BCL) 

An obsolete code using b-bit character representation. BCL is not 
available on A Series or on most B 5000/B 6000/B 7000 Series systems 
(such as B 5900 systems). 



call-by-name 

A method of passing a parameter to a procedure where every reference 
to the formal parameter within the procedure body causes the actual 
parameter to be evaluated. Any change made to the value of the 
formal parameter within the procedure body also changes the value of 
the corresponding actual parameter outside the procedure body. 



call-by-reference 

A method of passing a parameter to a procedure where the actual 
parameter's address is evaluated once and passed to the formal 
parameter. Every reference to the formal parameter within the 
procedure body thus references this address. Any change made to the 
value of the formal parameter within the procedure body also changes 
the value of the corresponding actual parameter outside the 
procedure body. 



call -by-value 

A method of passing a parameter to a procedure where the value of 
the actual parameter is assigned to the formal parameter, which is 
thereafter handled as a variable that is local to the procedure 
body. Any change made to the value of a call-by-value formal 
parameter has no effect outside the procedure body. 



CANDE 



Command AND Edit. A Burroughs Message Control System (MCS) that 
provides generalized file preparation and updating capabilities and 
task control in an interactive, terminal-oriented environment. 



character array 

An array whose elements are ASCII, BCL, EBCDIC, or hexadecimal 
characters. 
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code segment descriptor 

A descriptor that references a code segment. 

control variable 

The variable that controls the repetitive execution of an iterative 
statement. 



copy descriptor 

A descriptor that has a one in the copy bit (bit 46). A copy 
descriptor is derived from a mom descriptor, and there can be 
multiple copy descriptors to the same data segment. 



coroutine 

A process in which two programis execute in parallel, but not 
simultaneously, passing control back and forth to each other and 
running alternately. 



critical block 

The block within a program initiating an asynchronous process or a 
coroutine that must not be exited until the process or coroutine 
finishes executing. As long as the critical block is not exited, 
the process or coroutine has access to necessary globals in the 
initiating program. 



descriptor 

A word, distinguished by its format, that is used to refer to data 
segments and code segments. 



Dl stack (D[l] stack) 

A Stack created for each object code file that contains code segment 
descriptors and descriptors to read-only arrays. The Dl stack is 
also referred to as the "segment dictionary." 
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D2 Stack. (D[2] stacK) 

A Stack initiated for each executing program that is used for 
storage of items declared in the outer block and other items 
allocated at lexical level two. 



EBCDIC 



Extended Binary Coded Decimal Interchange Code. An 8-bit code, 
capable of representing 25b graphic and control characters that are 
the native character set of A Series and B 5000/B 6000/B 7000 Series 
systems. 



equivalent array 

An array that is declared to refer to the same data as another 
array. 



external sign flip-flop (EXTF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of EXTF reflects information about the signs 
of numeric quantities. 



EXTF 

See "external sign flip-flop." 

fault 

An error encountered by a hardware operator. 

FIB 

See "File Information Block." 

file equation 

A mechanism for specifying the values of file attributes when a 
program is compiled or executed. 
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File Information Block (FIB) 



A data structure in an. object codie file that contains information 
describing a file. 



float flip-flop (FLTF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of FLTF reflects information about the 
insertion of floating characters into character strings., 



FLTF 

See "float flip-flop." 

fully specified formal procedure 

A procedure parameter (formal procedure) that is declared with the 
word "FORMAL" in its declaration. With such procedures, the 
compiler checks the parameters of the actual procedure passed to it 
at compile time. 

global identifier 

Within a given block, an identifier that is declared in an outer 
block. A global identifier retains its values and characteristics 
as the blocks to which it is global are entered and exited. 

Halt/Load 

A system-initialization procedure that loads a fresh version of the 
Master Control Program (MCP) from disk or pack to main memory. 

host program 

A program to which separately compiled procedures can be bound by 
the Binder program or by using the sepcomp facility. 
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lex level 

See "lexical level." 



lexical level (lex level) 

A number that indicates the relative level of a local addressing 
space within the stack of an executing program. The outer block of 
an ALGOL program is allocated at lexical level two. Procedures 
declared at the outer block level execute at lexical level three, 
procedures declared within those procedures execute at lexical level 
four, and so on, up to lexical level 15 or 31, depending on the 
computer family. The first number in an address couple is the 
lexical level of the item. 



library 

A program containing one or more procedures or "entry points" that 
can be called by other programs. Unlike a regular program, which is 
always entered at the beginning, a library can be entered at any of 
these entry points. 



local identifier 

Within a given block, an identifier that is declared in that block. 
The value or values associated with that identifier inside the block 
are not associated with that identifier outside the block. In other 
words, on entry to a block, the values of local identifiers are 
undefined; on exit from the block, the values of local identifiers 
are lost. 



Master Control Program (MCP) 

The operating system on A Series and B 5000/B bOOO/B 7000 Series 
systems: the program that controls the operational environment of 
the system. This control includes memory management, job selection, 
peripheral management, system utilization, program segmentation, 
subroutine linkage, and error logging. 



MCP 



See "Master Control Program." 
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mom descriptor 



A descriptor that has a zero in the copy bic (bit 46). For every 
data segment in a program, there is one and only one mom descriptor. 



OFFF 

S6e "overflow flip-flop." 



original array 

An array that is declared with a bound pair list. Each original 
array is distinct from all other original arrays. 



overflow flip-flop (OFFF) 

A hardware flip-flop (a register that has two states) that is 
assigned values by and affects the actions of certain hardware 
operators. The state of OFFF reflects whether or not an overflow 
occurred when a numeric quantity was converted to a character string 
of fixed length. 



paged array 

An array that is automatically divided ("paged" or "segmented") at 
run time into segments of 256 words each. 



primary coroutine 

A program that initiates a procedure as a coroutine. 

ready queue 

A queue of tasks that are capable of running. Tasks that are to 
begin executing are taken from this queue by the system. 

referred array 

An array identifier that — through array row equivalence, an array 
reference assignment, or because it is a formal array—refers to 
data in another array. 
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save memory 



An area of memory that cannot be overlaid as long as the item with 
which it is associated is allocated. 



scope 



The portion of an ALGOL program in which an identifier can 
successfully be used to denote its corresponding values and 
characteristics. 



secondary coroutine 

A procedure that is initiated as a coroutine by a program. 

segment dictionary 

See "Dl stack." 

segmented array 

See "paged array." 

separately compiled procedure 

A procedure that is compiled on its own, rather than as part of a 
program, so that it can be bound into a host program by the Binder 
program. 

SIB 

See "Structure Information Block." 

stack 

A contiguous area in memory assigned to a task during its execution. 

Structure Information Block, (SIB) 

On Mark 3.4 and earlier releases, a "pseudo-stack" that contains 
addressing environments for eacn structure of a database. SIBs do 
not exist on Mark 3.5 and later releases. 
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subroutine 



A procedure to which program control is transferred when it is 
invoked and that transfers control back to the statement following 
the invocation statement when it is exited. 



task 



A Single, complete unit of work, performed by the system, such as 
compiling or executing a program or copying a file from one disk to 
another. Tasks are Initiated by a job, by another task, or directly 
by a user. 



thunk 



A compiler-generated typed procedure that calculates and returns the 
value of an expression passed to a call-by-name formal parameter of 
a procedure. The value of the expression is calculated and returned 
each time the formal parameter is used. A thunk is also referred to 
as "accidental entry." 



touched array 

An array that has been referenced by a statement. 

unpaged array 

An array that is not automatically divided ("paged" or "segmented") 
at run time into segments of 256 words each. Arrays smaller than 
1024 words are always unpaged. 

unsegmented array 

See "unpaged array." 

up- level event 

The situation that arises when either of the following is true: 

1. The block containing an event is exited before the block 
containing the interrupt attached to the event is exited. 

2. The block containing the finished event for a direct I/G 
statement is exited before the block containing the direct 
array is exited. 
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up-level pointer assignment 

Any construct that could result in a pointer pointing to an array- 
declared at a higher lexical level than that at which the pointer is 
declared. Such a construct is disallowed by the compiler, because 
the array can be deallocated, leaving the pointer pointing to an 
invalid portion of memory. 



WFL 



See "Work. Flow Language. 



word 

A unit of computer memory. On Burroughs A Series and 
B 5000/B 6000/B 7000 Series systems, a word consists of 48 bits used 
for storage plus a tag field used to indicate how the word is 
interpreted. 



word array 

An array whose elements are single- or double-precision operands. 

Work Flow Language (WFL) 

The Burroughs language used to write jobs that control the flow of 
programs and tasks on the operating system. 

zone field 

The leftmost (high order) four bits of an ASCII or EBCDIC character 
or the leftmost two bits of a BCL character. 
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<abs functions ,532 

occept statement >, 221 

Accidental entry (thunk), 171 

<action labels or finished event>, 362 

semantics, 371 
<actual parameter >, 347 
<actual parameter part>, 346 
<actual text part>, 62 
ACTUALNAME, 173 
Addition, 478 
ALPHA, 208 
<alpha item>, 763 
<alpha item identifier), 704 
<alpha item name>, 697 
<alpha string literal>, 34 
<alphanumeric relation), 704 
ALPHA6, 208 
ALPHA7, 208 
ALPHAS, 208 
AND, 496 

<append version), 647 
<arccos function), 532 
<arcsin function), 532 
<arctan function), 533 
<arctan2 function), 533 
<arithmetic assignment), 225 
<arithmetic attribute), 226 
<arithmetic attribute specification), 86 
<arithmetic case expression), 476 
<arithmetic concatenation expression), 484 
<arithmetic direct array attribute), 226 
<arithmetic expression) , 475 

precision of, 481 
<arithmetic file attribute). 226 
<arithmetic function designator) , 515 
<arithmetic intrinsic name), 515 

alphabetical listing of. 529 
<arithmetic operand), 476 
<arithmetic operator), 475 
Arithmetic operators, 478 

DIV, 479 

MOD, 479 

MUX, 479 ^ 

precedence of, 480 

TIMES, 478 

+, -, *, /, 478 

** , 479 
Arithmetic primaries, 477 

strings used as, 478 
<arithmetic primary), 476 
<arithmetlc relation), 493 
<arithmetic table membership), 495 
<arithmetlc task attribute), 227 
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<arithmetiG type transfer variable), 226 
<arithinetic update assignment), 227 
<arithmetic variable), 225 
Arithmetic-valued attributes 

assigning values 

arithmetic assignment target <arithmetic attribute), 226 

FILE declaration, 85 

multiple attribute assignment statement, 332 

interrogating 

arithmetic operand <arithmetic attribute), 476 

VALUE function, 585 
<arithmetic-valued direct array attribute name), 227 
<arithmetic-valued file attribute name), 86 
<arithmetic-valued task, attribute name), 227 
Array 

allocation, 44 

array class, 45 

array reference, 52 

array row, 49 

array row equivalence, 47 

array row read, 370 

array row write, 467 

bits per element, 45 

bound pair list, 46 

character array, 45 

default type, 45 

descriptor, 46 

dimensions, 47 

direct array, 68 

element width, 45 

equivalent, 47 

in sort procedures, 443 

long (unpaged), 44 

lower and upper bounds, 46 

original, 46 

own , 44 

paged (segmented), 44 

referenced (touched), 50 

referred, 46 

resizing referenced unpaged ( unsegmented) arrays, 420 

row selector, 49 

string array, 187 

subarray selector , 49 

unpaged (unsegmented), 44 

value array, 214 

word array, 45 

ZIP WITH array. 470 
<array class), 41 
<array declaration), 41 
<array designator), 43 
Array handling 

ARRAY declaration, 41 

array reference assignment, 231 
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Array handling (cont. ) 

ARRAY REFERENCE declaration, 52 

ARRAYSEARCH function, 534 

CHECKSUM function, 537 

DEALLOCATE statement, 287 

DIRECT ARRAY declaration, 68 

FILL statement, 300 

LISTLOOKUP function, 561 

MASKSEARCH function, 562 

NOSTACKARRAYS option, 631 

RESIZE Statement, 415 

SIZE function, 577 

STRING ARRAY declaration, 187 

VALUE ARRAY declaration, 214 
<array identifier >, 42 
<array name> , 43 
Array parameters, 171, 174 
<array reference assignment>, 231 
<array reference declaration> , 52 
<array reference identifier>, 52 
<array reference variable>, 231 
<array row>, 43 

in LIST declaration, 134 
<array row equivalence> , 43 
Array row read, 370 
<array row resize parameters>, 415 
Array row write, 467 
<array specif ication> , 168 
< array type>, 168 
Arrays of strings, 187 
<arraysearch function>, 534 
<ASCII characters, 36 
<ASC1I code>, 35 
<ASCII option>, 603 
<ASCII string>, 35 
<ASCII string constants, 524 
<assign statement >, 709 
<assignment statement >, 223 
Assignment statement, 223 

arithmetic assignment, 225 

array reference assignment, 231 

Boolean assignment, 234 

complex assignment, 237 

mnemonic attribute assignment, 239 

multiple attribute assignment statement, 332 

pointer assignment, 241 
string assignment, 243 
swap statement, 447 
task assignment, 246 
<atanh function>, 534 
<attach statement>, 248 
Attribute handling 

assigning arithmetic-valued attributes 
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Attribute handling (cont.) 

arithmetic assignment target <arithmetic attribute> , 226 

FILE declaration, 85 

multiple attribute assignment statement, 332 
assigning Boolean-valued attributes 

Boolean assignment target <Boolean attribute>, 234 

FILE declaration, 85 

multiple attribute assignment statement, 332 
assigning pointer-valued attributes 

FILE declaration, 85 

multiple attribute assignment statement, 332 

replace family-change statement, 409 

replace pointer-valued attribute statement, 411 
assigning string-valued attributes 

LIBRARY declaratior , 129 

string assignment target <string-valued library attrlbute>, 243 
assigning task-valued attributes 

task assignment, 246 
assigning the LIBACCESS library attribute 

LIBRARY declaration, 129 

mnemonic attribute assignment, 239 
assigning translate-table-valued attributes 

FILE declaration, 85 

multiple attribute assignment statement, 332 
interrogating arithmetic-valued attributes 

arithmetic operand <arithmetic attribute>, 476 
interrogating Boolean-valued attributes 

Boolean operand <Boolean attribute>, 492 
Interrogating event-valued attributes 

<event designator), 78 
interrogating pointer-valued attributes 

REPLACE statement source part <pointer-valued attribute), 380, 
407 
interrogating string-valued attributes 

string primary <string-valued library attribute), 523 
interrogating task-valued attributes 

<task designator), 200 
VALUE function, 585 
<attribute parameter list), 226 
<attribute parameter specification), 226 
<attribute specifications), 85 
<autobind option), 603 
<available function), 535 



Bad go to, 313 

< basic symbol), 16 

Batch source input, 791 

<BCL code) , 35 

<BCL option), 605 

<BCL string), 35 

<BDMS close statement), 715 

<BDMS free statement), 732 
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<BDMS identifier>, 691 
<BDMS lock statement), 741 
<BDMS open statement), 747 
<BDMS set statement), 757 
BDMSALGOL, 679 

<alpha item>, 763 

<alpha item identifier), 704 

<alpha item name), 697 

^alphanumeric relation), 704 

<assign statement), 709 

<BDMS close statement), 715 

<BDMS free statement), 732 

<BDMS identifier), 691 

<BDMS lock statement), 741 

<BDMS open statement), 747 

<BDMS set statement), 757 

<begintransaction statement), 712 

binding databases, 774 

<Boolean item name) , 697 

compiler control options, 772 
DATADICTINFO option, 7 72 
LISTDB option, 772 
NODMDEFINES option, 773 
TRACEDB option, 773 

<count item name), 697 

<create statement), 718 

<data set), 703 

<data set name), 681 

<data set reference), 681 

<database attribute assignment statement), 689 

<database declaration), 680 

<database identifier), 715 

<database name), 681 

<databas.e reference), 680 

<database title), 681 

<datadictinf o option), 772 

<delete statement), 722 

<dmterminate statement), 724 

<dmtest function), 763 

<endtransaction parameters), 726 

<endtransaction statement), 726 

<exception handling), 768 

<exception value), 770 

<except ion variable) , 768 

<field Item identifier), 704 

<field item name), 697 

<find statement),, 729 

<generate statement), 734 

<get statement), 737 

< group item name), 69 7 

<input assignment), 696 

< input mapping), 696 

< insert statement), 739 
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BDMSALGOL (cont. ) 

< internal name>, 681 

<item>, 757 

<key condition). 704 

<linlc itein>, 705 

<listdb option>, 772 

<logical database name>. 681 

<midtransaction parameters:', 744 

<midtransaction statement >, 744 

<modify statement) 

as synonym for <BDMS lock statement), 741 

<nodmdefines option), 773 

<numeric item), 763 

<numeric iteit) identifier), 704 

<numeric item name), 697 

<numeric relation), 704 

<output assignment), 700 

<output mapping). 700 

<population item name), 697 

<put statement), 750 

<qualif ication) , 693 

<real item). 763 

<real item identifier). 704 

<real item name), 697 

<record type item name), 697 

<recreate statement), 752 

<remove statement), 754 

<restart data set), 712 

<saveinput procedure identifier). 744 

<saveoutput procedure identifier), 72c. 

<selection expression), 703 

separate compilation (sepcomp) of databases, 776 

<set>, 703 

<set name), 682 

<set part) , 681 

<set reference), 681 

<set selection expression). 703 

< St ore statement), 761 

^string-valued database attribute), b8^ 

<structurenumber function), 76b 

<subscripted BDMS identifier). 692 

< subset > , 704 

<tracedb option). 773 

<transaction record variable), 712 
<beginsegment option), 605 
<begintransaction statement), 712 
<binary code), 31 
Binary read. 369 
<binary string). 31 
Binary write, 46 fc 
<bind option), 607 
<binder command), 599 
<binder option), 607 
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Binding 

AUTOBIND option, 603 
BIND option, 607 
BINDER option, 607 
DUMPINFO option, 611 
EXTERNAL option, 612 
HOST option, 614 
INITIALIZE Option, 617 
INTRINSICS option. 619 
LEVEL option, 619 
LIBRARY option. 620 
LOADINFO Option, 623 
of databases, 774 
PURGE option, 634 
STOP option, 642 
USE option, 646 
Bit manipulation, 484 

concatenation expression, 484 
partial word expression, 489 
<bit manipulation expression>, 484 
<block>. <^ 

<Boolean assignment>, 234 
<Boolean attribute>, 234 
<Boolean attribute specif ication> , 86 
<Boolean case expression>, 493 
<Boolean concatenation expression>, 484 
Boolean data type 

Boolean array declaration, 41 

Boolean array reference declaration, 52 

Boolean assignment. 234 

BOOLEAN declaration, 55 

Boolean expression, 491 

Boolean functions 

ACCEPT statement. 222 
AVAILABLE function, 535 
BOOLEAN function, 535 
CHANGE^ILE Statement, 270 
CHECKPOINT Statement, 274 
FIX Statement, 303 
FREE statement, 311 
HAPPENED function, 555 
READ statement, 363 
READLOCK function. 570 
REMOVEFILE statement, 377 
SEEK statement. 433 
SPACE statement, 445 
WAIT Statement, 454 
WRITE statement, 462 
Boolean operand internal structure. 823 
Boolean procedure declaratiop, 165 
Boolean value array declaration. 214 
direct Boolean array declaration, 68 
functions with Boolean parameters 
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Boolean data type (cont.) 

READLOCK function, 570 
REAL function, 570 
intrinsic functions returning values of type BOOLEAN, 531 
width of Boolean array elements, 45 
<Boolean declaration). 55 
<Boolean direct array attribute), 235 
<Boolean expression), 491 
<Boolean file attribute), 235 
<Boolean function), 535 
<Boolean function designator), 515 
<Boolean identifier), 55 
<Boolean intrinsic name), 516 

alphabetical listing of, 531 
<Boolean item name), 697 
<Boolean operand), 492 

Boolean operand internal structure, 823 
<Boolean operator), 491 
Boolean operators, 496 

precedence of, 498 
<Boolean option), 597 
Boolean primaries, 499 
<Boolean primary), 492 
<Boolean task attribute), 235 
<Boolean type transfer variable), 234 
<Boolean update assignment), 235 
<Boolean value), 492 
<Boolean variable), 234 
Boolean-valued attributes 
assigning values 

Boolean assignment target <Boolean attribute), 234 
FILE declaration, 85 

multiple attribute assignment statement, 332 
interrogating 

Boolean operand <Boolean attribute), 492 
VALUE function, 585 
< Boolean-valued direct array attribute name), 235 
<Boolean-valued file attribute name), 86 
<Boolean-valued task attribute name), 235 
< bound pair) , 42 
<bound pair list), 42 

Bound pair lists in array declarations, 46 
<bounds part), 74 
<brack.et>, 17 
<breakhost option), 608 
Breakpoint 

BREAKHOST option, 60S 
breakpoint intrinsic, 251 
BREAKPOINT option, 609 
BREAKPOINT Statement, 250 
control commands, 253 
display commands, 251 
reformat commands, 254 
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<breakpoint option>, 609 
<break.point statement), 250 
By-calling procedure, 172 
<B7700 opt ion >, 609 



<cabs function), 535 

ccall statement). 259 

Call-by-name parameters, 170 

Gall-by-reference parameters, 171 

Call-by-value parameters, 170 

Calling procedures with parameters , 348 

<cancel statement), 261 

CARD file, 589 

<case body) , 263 

<case expression), 504 

<case head), 263 

<case statement), 26 3 

CAT, 526 

<cause statement), 266 

<causeandreset statement), 268 

<ccos function), 535 

<cexp function), 536 

<changefile statement), 270 

Character array, 45 

<character array identifier), 42 

<character array name), 520 

<character array part), 520 

<character array row), 520 

< character set), 203 

<character size), 565 

Character string manipulation 

ASCII collating sequence, 811 

ASCII option, 603 

BCL collating sequence, 811 

BCL option, 605 

character array, 45 

default character type, 817 

DELTA function, 543 

DOUBLE function, 548 

EBCDIC collating sequence, 811 

INTEGER function, 558 

internal representation of characters, 808 

intrinsic functions returning values of type POINTER, 531 

OFFSET function, 564 

PICTURE declaration, 147 

pointer assignment,, 241 

POINTER declaration, 160 

pointer expression,, 519 

POINTER function, 565 

pointer relation, 501 

READLOCK function, 570 

REAL function, 571 
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Character string manipulation (cont.) 

REMAIN INGCHARS function, 571 

REPLACE Statement, 379 

SCAN Statement, 427 

SIZE function, 577 

String literal, 30 

String relation, 500 

TRANSLATETABLE declaration, 202 

TRUTHSET declaration, 207 
<character type>, 42 
<check. option>, 610 
Checkpoint, 273 

checkpoint/restart messages, 277 

effect on the PROCESSID function, 568 

with the sort intrinsic, 441 
<check.point statement >, 273 
<check.sum function), 537 
<cln function), 537 
<close option) , 280 
<close statement), 280 
<closed text), 62 
CODE file, 591 
Code optimization 

BEGINSEGMENT option, 605 

B7700 option, 609 

ENDSEGMENT option, 611 

OPTIMIZE option, 633 

TARGET option, 644 
<code option), 610 
Code-compa.tible families, 645 
<column width), 361 
<comment characters), 27 
<comment remark.), 27 
<commentary) , 372 
<compare procedure), 437 
Compile-time facility 

<compile-time arithmetic expression), 777 

<compile-time begin statement), 781 

<compile-time Boolean expression), 783 

compile-time compiler control options, 787 
CTLIST option, 787 
CTMON option, 787 
CTTRACE option, 788 
LISTSKIP option, 788 

<compile-time define identifier), 781 

<compile-time define statement), 781 

<compile-time for statement), 782 

<compile-time identifier), 779 

<compile-time if statement), 783 

<compile-time invoke statement), 784 

<compile-time let statement), 784 

<compile-time statement), 780 

<compile-time text), 781 
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Compile- time facility (cont.) 

<compile-time thru statement>, 785 

<compile-time variable), 778 

<compile-time variable declaration) , 777 

<compile-time while statement), 785 

<ctlist option), 787 

<ctmon option), 7 87 

<cttrace option) , 788 

<def inition), 786 

<listskip option), 788 

<number identifier), 777 

<starting value), 777 

<vector length), 777 
Compiler control options, 603 

ASCII option, 603 

AUTOBIND option, 603 

BCL Option, 605 

BEGINSEGMENT option, 605 

BIND option, 607 

BINDER option, 607 

BREAKHOST option, 608 

BREAKPOINT option, 609 

B7700 option, 609 

CHECK option, 610 

CODE option, 610 

DUMPINFO option, 611 

ENDSEGMENT option, 611 

ERRLIST option, 612 

EXTERNAL Option, 612 

FORMAT option, 613 

GO TO option, 613 

HOST option, 614 

INCLNEW option, 614 

INCLSEQ option, 615 

INCLUDE option, 615 

INITIALIZE option, 617 

INSTALLATION option, 618 

INTRINSICS option, 619 

LEVEL option, 619 

LIBRARY Option, 620 

LIMIT option, 620 

LINEINFO option, 621 

LIST option, 621 

LISTDELETED option, 622 

LISTINCL option, 622 

LISTOMITTED option, 623 

LIST? option, 623 

LOADINFO option, 623 

MAKEHOST Option, 625 

MCP option, 628 

MERGE option, 628 

NEW option, 629 

NEWSEQERR option, 6 30 
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Compiler control options (cont.) 

NOBCL option, 630 

NOBINDINFO Option, 631 

NOSTACKARRAYS option, 631 

NOXREFLIST option, 632 

OLDRESIZE option, 632 

OMIT Option, 633 

OPTIMIZE option, 633 

PAGE Option, 633 

PURGE option, 634 

SEGDESCABOVE option, 634 

SEGS option, 635 

SEPCOMP option, 635 

SEQ option, 637 

SEQERR option, 638 

sequence base option, 638 

sequence increment option, 639 

SHARING option, 639 

SINGLE option, 640 

STACK option, 641 

STATISTICS option, 641 

STOP option, 642 

TADS option, 643 

TARGET option, 644 

TIME option, 645 

USE option, 646 

user option, 646 

VERSION option, 647 

VOID option, 648 

VOIDT option, 649 

WARNSUPR option, 649 

WRITEAFTER option, 649 

XDECS option, 650 

XREF option, 650 

XREFFILES option, 652 

XREFS option, 653 

$ option, 653 
<compiler control record>, 596 
Compiler input files, 589 
Compiler output files, 591 
<compiletime function>, 538 
<complex assignment>, 237 
< complex case express ion >, 507 
Complex data type 

complex array declaration. 41 

complex array reference declaration, 52 

complex assignment, 237 

COMPLEX declaration, 58 

complex expression, 506 

complex functions 

CCOS function, 535 
CEXP function, 536 
CLN function, 537 



869 
Index 

Complex data type (cont.) 

COMPLEX function, 538 
CONJUGATE function, 539 
CSIN function, 539 
CSQRT function, 540 
complex operand internal structure, 826 
complex procedure declaration, 165 
complex relation, 500 
complex value array declaration, 214 
functions with complex parameters 
CABS function, 535 
IMAG function, 557 
REAL function, 571 
intrinsic functions returning values of type COMPLEX, 531 
width of complex array elements, 45 
(complex declaration), 58 
c complex equality operator >, 494 
(complex expression). 506 
(complex function), 538 
<complex function designator), 516 
<complex identifier), 58 
<complex intrinsic name), 516 

alphabetical listing of, 531 
<complex operand), 507 

Complex operand internal structure, 826 
<complex operator), 506 
<complex primary), 506 
<complex relation), 494 
<complex update assignment), 237 
<complex variable), 237 
<compound statement), 9 
<conGatenation) , 485 
<concatenation expression), 484 
<condition), 381 

<conditional arithmetic expression). 476 
<conditional Boolean expression), 495 
<conditional complex expression), 507 
<conditional designational expression), 512 
<conditional expression), 510 
<conditional pointer expression), 520 
<conjugate function), 539 
<constant > , 214 

<constant arithmetic expression), 476 
<constant expression), 214 
<constant list), 214 
<constant string expression), 525 
Contents of printer listing 
CODE option, 610 
FORMAT option, 613 
LIST option, 621 
LISTDELETED option, 622 
LISTINCL option, 622 
LISTOMITTED option, 623 
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Contents of printer listing (cont.) 

LISTP option. 625 

PAGE Option, 63 3 

SEGS option. 635 

SINGLE option, 640 

STACK Option, 641 

TIME Option, 645 

WARNSUPR option. 64 ^ 

$ option, 653 
<continue statement>, 285 
<control character), 149 
<control part>, 73 
<copy number>. 298 
<core-to-core blocking), 360 
<core-to-core blocking part>, 360 
<core-to-core file part), 360 
<core-to-core part), 360 
<core-to-core record size), 360 
<coE function), 539 
<cosh function), 539 
<cotan function), 539 
<count), 252 
<count item name), 697 
<count part), 381 
<create statement), 718 
Critical block, 351 
Cross reference, 650 

NOXREFLIST option, 632 

XDECS option, 650 

XREF option, 650 

XREFFILE file, 593 

XREFFILES option, 652 

XREFS option, 653 
<csin function), 539 
<csqrt function), 540 
<cycle increment), 647 



<dabs function), 540 
<dand function), 540 
<darccos function), 540 
<darcsin function), 541 
<darctan function), 541 
<darctan2 function), 541 
<data), 792 
Data descriptors 

internal structure, 827 
<data error label), 362 
<data exponent part), 102 
Data number, 102 
<data set), 703 
<data set name), 681 
<data set reference), 681 
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<database attribute assignment statement >, 689 

<database declaration> „ b8G 

<database identifier>, 715 

<database name>, 681 

<database references, 680 

<database title>, 681 

Databases 

binding of , 774 
separate compilation of, 776 
<datadictinfo option>, 772 
<dcos function:-, 541 
<dcosh functions, 542 
<deallocate statement), 287 
vdecimal fractions. 23 
<decimal functions. 542 
< decimal numbers. 2 3 
< decimal places >, 92 
<declaration> , 39 
<:declaration lists, 9 
Default character type, 817 
<:define declarations, 60 
<define identifier), 60 
<:define invocation), 62 
<def inition) , 60 

extension in the compile-time facility, 786 
<delete statement), 722 
<delimiter), 16 
<delink.library function), 543 
•cdelta function). 543 
<deqv function), 544 
•cderf function), 544 
■cderfc function), 544 
■cdesignational case expression), 512 
cdesignational expression), 512 
<destination) , 379 
<destination characters), 203 
<detach statement), 288 
< device), 27 3 
<dexp function), 544 
<dgamma function), 545 
Diagnostic tools 

BREAKHOST option, 608 

BREAKPOINT option, 609 

BREAKPOINT statement, 250 

DUMP declaration, 73 

MONITOR declaration, 136 

PROGRAMDUMP statement, 355 

STATISTICS option, 641 

TADS option, 643 
<digit) , 16 

<digit convert part), 380 
Dimensionality of arrays, 47 
<dimp function), 545 
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<dinteger function), 545 

<direct array declaration) , 68 

<direct array identifier), 68 

<direct array name>, 69 

<direct array reference identifier), 52 

<direct array row), 68 

<direct array row equivalence), 68 

<direct file identifier), 85 

Direct I/O, 316 

<direct switch file identifier), 189 

<directory element), 270 

<disable statement), 289 

<disabling on statement), 336 

<disk. size), 437 

<display statement), 291 

<disposition) , 273 

DIV, 479 

Division, 478 

<dlgamma function), 545 

<dln function), 546 

<dlog function), 546 

<dmax function), 546 

<dmin function), 546 

<dmterminate statement), 724 

<dmtest function), 763 

<dnabs function), 547 

<dnot function), 547 

<do statement), 293 

<dor function), 547 

Double data type 

arithmetic assignment, 225 

arithmetic expression, 475 

arithmetic relation, 500 

direct double array declaration, 68 

double array declaration, 41 

double array reference declaration. 52 

DOUBLE declaration, 71 

double functions 

DABS function, 540 

DAND function, 540 

DARCCOS function, 540 

DARCSIN function, 541 

DARCTAN function, 541 

DARCTAN2 function, 541 

DCOS function, 541 

DCOSH function, 542 

DECIMAL function, 542 

DEQV function, 544 

DERF function, 544 

DERFC function, 544 

DEXP function, 544 

DGAMMA function, 545 

DIMP function, 545 
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Double data type (cont. ) 

DINTEGER function, 545 

DLGAMMA function, 545 

DLN function, 546 

DLOG function, 546 

DMAX function, 546 

DMIN function, 546 

DNABS function, 547 

DNOT function, 547 

DOR function, 547 

DOUBLE function, 548 

DSCALELEFT function, 550 

DSCALERIGHT function, 550 

DSCALERIGHTT function, 551 

DSIN function, 551 

DSINH function, 551 

DSQRT function, 551 

DTAN function, 552 

DTANH function, 552 

<pot function>, 568 

POTC function, 568 

POTH function, 568 

POTL function, 568 
double procedure declaration, 165 
double value array declaration, 214 
double-precision operand internal structure, 824 
functions for manipulating double-precision expressions 

BOOLEAN function, 535 

FIRSTWORD function, 554 

INTEGER function, 557 

INTEGERT function, 558 

REAL function, 571 

SECONDWORD function, 574 

SINGLE function, 577 

STRING function, 578 
intrinsic functions returning values of type DOUBLE, 530 
width of double array elements, 45 
<double declaration>, 71 
<double function>, 548 
<double identifier), 71 
<double variable), 447 

Double-precision operand internal structure, 824 
<drop function), 549 
DS (Discontinue) ODT command, 661 
<dscaleleft function), 550 
<dscaleright function), 550 
•cdscalerightt function), 551 
<dsin function), 551 
■cdsinh function) , 551 
(dsqrt function), 551 
<dtan function), 552 
<dtanh function), 552 
<dump declaration), 73 
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<dump list>, 7 3 

<dump paraineters> , 73 

<dumpinfo option>, 611 

<dynainic procedure specif icatlon> , 169 



<EBCDIC character>, 35 
<EBCDIC code>, 35 
<EBCDIC string>, 35 
<EBCDIC string constant>, 524 
<editing inodifier>, 92 
<editing phrase>, 91 
Editing phrase 

A editing phrase letter, 98 

using pointers and string variables, 99 

C editing phrase letter, 98 

using pointers and string variables, 99 

D editing phrase letter, 102 

decimal places, 96 

E editing phrase letter, 104 

editing modifiers, 120 

F editing phrase letter, 104 

field width, 96 

G editing phrase letter, 105 

H editing phrase letter, 106 

I editing phrase letter, 108 

J editing phrase letter, 110 

K editing phrase letter, 106 

L editing phrase letter, 111 

multiple editing phrases, 93 

editing phrase letter, 112 

P editing modifier, 120 

R editing phrase letter, 113 

repetition of, 95 

S editing phrase letter, 114 

simple string literal, 94 

T editing phrase letter, 116 

U editing phrase letter, 116 

V editing phrase letter, 117 

variable editing phrases, 97 

X editing phrase letter, 118 

Z editing phrase letter, 119 

$ editing modifier, 120 
<editing specif ications> , 90 
EMPTY, 526 
EMPTY6, 526 
EMPTY7, 526 
EMPTY 8, 526 

<enable statement>, 295 
<enabling on statement>, 334 
<end remario , 27 
<end-of-record> , 373 
<ending index>, 537 
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<endsegment option>, 611 

<endtransaction parameters >, 726 

<endtransaction statement), 726 

<entier function), 552 

Entry point. See Library entry point 

<entry specifie-r), 792 

<environment>, 625 

<eof label > , 362 

< equality operator), 495 

< equation part), 55 

EQV, 496 

<erf function), 553 

<erfc function), 553 

<errlist option), 612 

Error handling for libraries, 660 

< error limit), 620 

Error messages 

for formatted input, 834 

for formatted output, 832 

for free-field input, 831 
ERRORFILE file, 592 
<escape remark), 27 
<escape text), 27 
< event array declaration) , 78 
<event array designator), 79 
<event array identifier), 78 
<event declaration), 78 
< event designator), 78 
Event handling 

ATTACH statement, 248 

AVAILABLE function, 535 

CAUSE statement, 266 

CAUSEANDRESET statement, 268 

DETACH statement, 288 

EVENT ARRAY declaration, 78 

EVENT declaration, 78 

FIX statement, 303 

FREE statement, 311 

HAPPENED function, 555 

LIBERATE Statement, 324 

PROCURE statement, 353 

RESET Statement. 414 

SET Statement, 435 

up- level event 

in ATTACH statement , 248 
in direct I/O, 317 

WAIT Statement, 452 

WAITANDRESET Statement , 456 
<event identifier), 78 
< event list) , 452 
cevent statement), 297 
Evpnt-valued attributes. See also Event handling 

interrogating 
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Event-valued attributes (cont.) 

<event designator >, 78 
<event-valued task attribute>, 79 
< event -valued task, attribute naine>, 79 
<exception handling>, 768 
<exception value>, 770 
<exception variable>, 768 
<exchange statement >, 298 
<exp function>, 553 
<explicit delimiter>, 373 
<exponent part>, 24 
Exponentiation, 479 
<export declaration> , 81 
<expression> , 473 
<external option>, 612 



<family designator >, 409 

<fault action>, 336 

<fault information part>, 335 

<fault list>, 334 

< fault name>, 335 

< fault number >, 335 

<fault stack. history>, 335 

<field>, 372 

<field delimiter>, 372 

<field item identifier>, 704 

<field item name>, 697 

Field notation, 807 

<field width>, 91 

<file declaration> , 85 

<file designator>, 189 

File handling. See I/O 

<file identifier>, 85 

File parameters, 178 

<f ile part>, 359 

semantics, 364 
<f ile specif ication>, 611 
<file-valued task, attribute name>, 461 
<fill statement>, 300 
<find statement >, 729 
<first function), 554 
<firstone function), 554 
<firstword function), 554 
<fix statement), 303 
<for list element), 305 
<for statement), 305 
<formal parameter), 166 
<formal parameter list), 166 
<formal parameter part), 166 
<formal parameter specifier), 168 
Formal parameters, 173 
< formal symbol), 60 



877 
Index 



<formal symbol part>, 60 
<format and list part>, 361 

semantics for READ statement, 368 

semantics for WRITE statement, 465 
<format declaration> , 89 
<format designator >, 192 
<format identifier>, 89 
<format option>. 613 
< format part) ,89 
Format -error messages 

formatted input, 834 

formatted output, 832 

free-field input, 831 
Formatted input format-error messages. 834 
Formatted output format-error messages, 832 
Formatted read, 368 
Formatted write, 465 
<forward interrupt declaration), 121 
<forward procedure declaration), 121 
< forward reference declaration), 121 
<forward switch label declaration), 121 
<free statement), 311 
Free-field data format, 371 
Free-field data record, 372 
Free-field input format-error messages, 831 
< free-field part), 361 
< freeze statement), 312 
Fully-specified formal procedure, 173 
<f unction expression), 514 
FUNCTIONNAME library attribute, 665 
Functions, 528 

ABS function, 532 

ACCEPT statement, 222 

ARCCOS function, 5 32 

ARCSIN function, 532 

ARCTAN function, 533 

ARCTAN2 function, 533 

ARRAYSEARCH function, 534 

ATANH function,. 534 

AVAILABLE function, 535 

BOOLEAN function, 535 

CABS function, 535 

CCOS function, 535 

CEXP function, 536 

CHANGEFILE Statement, 270 

CHECKPOINT Statement, 274 

CHECKSUM function, 537 

CLN function, 537 

CLOSE statement, 281 

COMPILETIME function, 538 

COMPLEX function, 538 

CONJUGATE function, 539 

COS function, 539 
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Functions (cont. ) 

COSH function, 539 
COTAN function, 539 
CSIN function, 539 
CSQRT function, 540 
DABS function, 540 
DAND function, 540 
DARCCOS function, 540 
DARCSIN function, 541 
DARCTAN function, 541 
DARCTAN2 function, 541 
DCOS function, 541 
DCOSH function. 542 
DECIMAL function, 542 
DELINKLIBRARY function, 54 3 
DELTA function, 543 
DEQV function, 544 
DERF function, 544 
DERFC function, 544 
DEXP function, 544 
DGAMMA function, 545 
DIMP function, 545 
DINTEGER function, 545 
DLGAMMA function, 545 
DLN function, 546 
DLOG function, 546 
DMAX function, 546 
DMIN function, 546 
DNABS function, 547 
DNOT function, 54 7 
DOR function, 547 
DOUBLE function, 548 
DROP function, 549 
DSCALELEFT function. 550 
DSCALERIGHT function, 550 
DSCALERIGHTT function. 551 
DSIN function, 551 
DSINH function, 551 
DSQRT function, 551 
DTAN function, 552 
DTANH function, 552 
ENTIER function, 552 
ERF function, 553 
ERFC function, 553 
EXP function, 553 
FIRST function. 554 
FIRSTONE function, 554 
FIRSTWORD function, 554 
FIX statement, 303 
FREE statement, 311 
GAMMA function, 555 
HAPPENED function, 555 
HEAD function, 55e 
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Functions (cont. ) 

IMAC function, 557 

INTEGER function, 557 

INTEGERT function, 558 

intrinsic functions returning values of type BOOLEAN, 531 

intrinsic functions returning values of type COMPLEX, 531 

intrinsic functions returning values of type DOUBLE, 530 

intrinsic functions returning values of type INTEGER, 530 

intrinsic functions returning values of type POINTER, 531 

intrinsic functions returning values of type REAL, 530 

intrinsic functions returning values of type STRING, 531 

LENGTH function, 559 

LINENUMBER function, 559 

LINKLIBRARY function, 559 

LISTLOOKUP function, 561 

LN function, 562 

LNGAMMA function, 562 

LOG function, 562 

MASKSEARCH function, 562 

MAX function, 563 

MESSAGESEARCHER 'Statement, 3 31 

MIN function, 563 

NABS function, 564 

NORMALIZE function, 564 

OFFSET function, 564 

ONES function, 565 

OPEN statement, 340 

POINTER function,, 565 

<pot function>, 568 

POTC function, 568 

POTH function, 568 

POTL function, 568 

PROCESSID function, 568 

RANDOM function, 569 

READ statement, 363 

READLOCK function, 569 

REAL function, 570 

REMAIN INGCHARS function, 571 

REMOVEFILE statement, 377 

REPEAT function, 572 

SCALELEFT function, 572 

SCALERIGHT function, 5l3 

SCALERIGHTF function, 573 

SCALERIGHTT function, 574 

SECONDWORD function, 574 

SEEK statement, 432 

SETACTlIALNAME function. 575 

SIGN function, 576 

SIN function, 577 

SINGLE function, 577 

SINK function. 577 

SIZE function, 577 

SPACE statement. 445 
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Functions (cont.) 

SQRT function, 578 
STRING function, 578 
STRING4 function, 578 
STRING7 function, 578 
STRING8 function, 578 
TAIL function, 580 
TAKE function, 581 
TAN function, 582 
TANH function, 582 
TIME function, 582 
TRANSLATE function, 584 
VALUE function, 585 
WAIT statement, 453 
WAITANDRESET Statement, 456 
WRITE statement, 462 



<gamma function), 555 
<generate statement), 734 
<get statement), 737 
Global identifiers, 13 
< global part), 10 
<go to option), 613 
<go to statement), 313 
< group item name), 697 



<happened function), 555 

<head function), 556 

<hex string), 372 

<hexadecimal character), 34 

<hexadecimal code), 33 

<hexadecimal string), 33 

<hexadecimal string constant), 525 

Hexadecimal strings in free-field data records, 374 

HOST file, 590 

<host option), 614 



I/O 

ACCEPT Statement, 221 

DIRECT ARRAY declaration, 68 

direct I/O, 316 

DISPLAY statement, 291 

file handling. See also Attribute handling 

CHANGEFILE Statement, 270 

CLOSE statement, 280 

EXCHANGE statement, 298 

FILE declaration, 85 

LOCK statement, 325 

MERGE statement, 327 

multiple attribute assignment statement. 332 
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I/O (cont. ) 

OPEN statement, 340 
REMO VEF I LE statement, 377 
REWIND statement, 423 
SEEK statement, 433 
SPACE statement, 445 
SWITCH FILE declaration, 189 
formatting 

FORMAT declaration, 89 
free-field data format, 371 
LIST declaration, 132 
run-time format-error messages, 831 
SWITCH FORMAT declaration, 192 
SWITCH LIST declaration, 197 
I/O statement, 315 
normal I/O, 316 
READ statement, 359 
serial I/O operation, 433 
WRITE statement , 461 
WRITEAFTER option, 649 

<I/0 statement >, 315 

<identif ier>, 21 

<if clause), 319 

<if statement), 319 

<imag function), 557 

<immediate option), 597 

IMP, 496 

<in-out part) ,89 

<inclnew option), 614 

<inclseq option), 615 

INCLUDE files, 590 

<include option), 615 

< index) , 252 

< index and count), 252 

< index or range), 252 

INFO file, 590, 593 

< initial part), 305 

< initial value), 300 

<initialize option), 617 

Initialized pointer, 161 

<input assignment), 696 

< input f ile) , 608 

<input mapping), 69b 

<input option), 436 

< input procedure), 436 

<insert statement), 739 

< installation number), 618 

<installation number list), 618 

<installation option), 618 

< integer) , 24 

Integer data type 

arithmetic assignment * 225 
arithmetic expression, 475 
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Integer data type (cont.) 
arithmetic relation, 500 
direct integer array declaration, 68 
functions for manipulating integer expressions 
BOOLEAN function, 535 
DINTEGER function, 545 
DOUBLE function, 548 
NORMALIZE function, 564 
STRING function, 578 
integer array declaration, 41 
integer array reference declaration, 52 
INTEGER declaration, 123 
integer functions 

ARRAYSEARCH function, 534 
CLOSE statement, 281 
DELINKLIBRARY function, 543 
DELTA function, 543 
ENTIER function, 552 
FIRSTONE function, 554 
INTEGER function, 557 
INTEGERT function, 558 
LENGTH function, 559 
LINENUMBER function, 559 
LINKLIBRARY function, 559 
LISTLOOKUP function, 561 
MASKSEARCH function, 562 
MESSAGESEARCHER statement, 331 
OFFSET function, 564 
ONES function, 565 
OPEN statement, 340 
PROCESSID function, 568 
REMAININGCHARS function, 571 
SCALELEFT function, 572 
SCALERIGHT function, 573 
SCALERIGHTT function, 574 
SETACTUALNAME function, 575 
SIGN function, 576 
SIZE function, 577 
VALUE function, 585 
WAIT statement, 453 
WAITANDRESET statement, 456 
integer operand internal structure, 821 
integer procedure declaration, 165 
integer value array declaration, 214 

intrinsic functions returning values of type INTEGER, 530 
width of integer array elements, 45 
<integer declaration> , 123 
<integer function>, 557 
<integer identifier), 123 
Integer operand internal structure, 821 
<integer variable), 447 
<integert function), 558 
<internal file name>, 611 
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<internal naine>, 681 

< interrupt declaration >, 126 

Interrupt handling 

ATTACH statement, 248 

DETACH statement, 288 

DISABLE statement, 289 

ENABLE statement, 295 

INTERRUPT declaration, 126 

interrupt statement, 322 

ON statement, 334 
<interrupt identifier>, 126 
< interrupt statement >, 322 
INTNAME library attribute, 665 
Intrinsic functions, See Functions 
<intrinsic translate table>, 383 
<intrinsics option>, 619 
<introduction> , 148 
<introduction code> , 148 
<invocation statement), 323 
Invoking defines, 61 
<iDtime restriction), 791 
IS, 497 
ISNT, 497 
<item>, 757 

< iteration clause), 133 
<iteration part>, 305 



< jOb> , 792 

Job and task control. See also Attribute handling 

CALL statement, 259 

CHECKPOINT statement, 273 

CONTINUE statement, 285 

PROCEDURE declaration, 165 

PROCESS statement, 350 

PROCESS ID function, 568 

RUN statement, 425 

TASK ARRAY declaration, 199 

task assignment, 246 



TASK declaration,, 199 
ZIP statement, 470 

<job specifier), 792 

<job title) , 792 



<key condition), 704 



< label counter), 74 

<label counter modulus), 73 

< label declaration),, 128 

<label designator), 512 

<label identifier), 128 
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<labeled statement), 220 

< language component >, 15 

< language name>, 142 

<language specif ication> , 329 

<left bit>, 489 

<lef t bit from> , 485 

<left bit to, 485 

<length function), 559 

Length of string literals, 387 

<letter>, 16 

<letter string), 17 

< level option), 619 

< level 2 procedure), 10 

<lex level restriction part), 160 

LIBAGCESS library attribute, 666 

assigning values 

LIBRARY declaration, 129 
mnemonic attribute assignment, 239 
< liberate statement), 324 
LIBPARAMETER library attribute, 666 
<library attribute specifications), 129 
<library declaration), 129 
Library entry point 

allowed parameters, 82 

allowed types, 82 

at initiation, 657 

declaration of in calling program, 172 

declaration of in library program, 81 

matching types, 668 

passing parameters, 669 
<library entry point identifier), 575 
^rlibrary entry point specification), 169 
Library handling 

ACTUALNAME, 17 3 

assigning values to LIBACCESS library attribute, 129, 239 

assigning values to string-valued library attributes, 129, 243 

attributes, 665 

calling programs, 656 

CANCEL statement, 261, 660 

creation of libraries, 662 

delinking, 660 

DELINKLIBRARY function, 543, 660 

description of libraries, 655 

direct linkage, 659 

duration, 658 

dynamic linkage, 659 

entry points 

allowed parameters, 82 

allowed types, 82 

at initiation, 657 

declaration of in calling program, 172 

declaration of in library program, 81 

matching types, 668 
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Library handling (cont.) 

passing parameters, 669 

error handling, 660 

examples 

calling programs, 674, 678 
direct linkage, 675 
dynamic linkage, 671, 676 
indirect linkage, 676 

EXPORT declaration, 81 

FREEZE statement, 312 

functional description of libraries, 656 

indirect linkage, 659 

initiation, 657 

interrogating string-valued library attributes, 523 

LIBRARY declaration, 129 

library directories, 656 

library programs,, 656 

library templates, 656 

linkage provisions, 659 

LINKLIBRARY function, 559, 664 

parameter passing rules, 669 

permanent specification, 658 

PROCEDURE declaration, 165 

referencing libraries, 664 

restricting use, 662 

SETACTUALNAME function, 575, 665 

SHARING option, 639, 662 

temporary specification, 658 
<library identifier:*, 129 
<library option>, 620 
Library SHARING option 

DONTCARE, 639, 663 

PRIVATE, 639, 662 

SHAREDBYALL, 639, 662 

SHAREDBYRUNUNIT, 639, 662 
<limit option>, 620 
LINE file, 591 
<lineinfo option>, 621 
<linenumber function>, 559 
<linewidth>, 650 
<link item> , 705 

<linklibrary function), 559, 664 
<list>., 361 

<list declaration) , 132 
<list designator), 197 
<list element), 133 
<list identifier>, 132 
<list option), 621 
<listdb option), 772 
<listdeleted option), 622 
<listincl option), 622 
<listlookup function), 561 
<listomitted option), 623 
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<listp option>, 623 
<ln function). 562 
<lngamma function), 562 
<loadinfo option), 623 
Local identifiers, 13 
<lock option), 325 
<lock. statement), 325 
<log function), 562 
< logical database name), 681 
<logical operator), 18 
Logical operators, 497 

AND, 496 

EQV, 496 

IMP, 496 

NOT, 496 

OR, 496 

precedence of , 499 

results of, 497 
Long (unpaged) arrays, 44 
< lower bound), 42 
< lower bound list). 168 
< lower bounds), 52 
< lower limit), 74 



<raak.ehost option), 625 

<mask.search function), 562 

<max function), 563 

<MCP option), 628 

<membership expression), 207 

<membership primary), 208 

<memory size), 437 

<merge option), 628 

<merge statement), 327 

<merging option), 327 

<merging option list), 327 

<messagesearcher statement), 329 

<midtransaction parameters), 744 

<midtransaction statement), 744 

<min function), 563 

MLS, See MultiLingual System (MLS) 

<mnemonic attribute), 239 

<mnemonic attribute assignment), 239 

<mnemonic attribute value), 239 

<mnemonic file attribute value), 86 

<mnemonic library attribute), 239 

<mnemonic library attribute specification), 130 

<mnemonic library attribute value), 130 

<mnemonic-valued library attribute name), 130 

MOD, 479 

<modify statement) 

as synonym for <BDMS lock, statement), 741 
<monitor declaration), 13b 
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<monitor element), 136 

<multidimensional array designator), 415 

MultiLingual System (MLS) 

MESSAGESEARCHER Statement, 329 
OUTPUTMESSAGE ARRAY declaration. 141 

<multiple attribute assignment statement >,■ 332 

Multiplication. 478 

MUX, 479 



<nabE function), 564 
< name and title), 611 
<new character), 14S 
<new option) ,629 
<new size), 415 
<new value) , 255 
<newseqerr option), 630 
NEWTAPE file, 591 
<noBCL option) , 630 
<nobindinfc option), 631 
<nodmdeflnes option), 773 
Normal I/O, 316 
<normalize function), 564 
Normalized form 

double precision, 826 

single precision, 821 
<nostack-arrays option), 631 
NOT, 496 

<noxreflist option), 632 
Null statement, 219 
< number), 23 
< number list) , 26 3 
<number of bits), 485 
<number of columns), 3.61 
< number of tapes). 437 
<numbered statement group), 263 
<numbered statement list), 263 
Numbers 

compiler conversion, 26 

exponents. 26 

in free-field data records, 374 

ranges in ALGOL, 25 
<numeric convert part), 380 
<numeric item). 763 
<numeric item identifier), 704 
<numeric item name), 697 
<numeric relation), 704 
Numeric sign, 819 
<numeric string literal), 30 



<octal character), 3: 
<octal code). 32 
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<octal string>, 32 

<offset function>, 564 

<oldresize option), 632 

<omit option), 633 

<on statement), 334 

<one-diinensional array name>, 43 

<one-dimensional direct array name>. 68 

<ones function), 565 

<open option), 340 

<open statement), 340 

<operator), 17 

<optimize option), 633 

Optimizing code 

BEGINSEGMENT option, 605 

B7700 option. 609 

ENDSEGMENT option, 611 

OPTIMIZE option, 633 

TARGET option, 644 
<option expression), 598 
<option phrase), 596 
<option primary), 598 
OR, 496 

<outer level), 619 
<output assignment), 700 
<output mapping), 700 
<output message), 142 
<output message array), 141 
<output message array declaration), 141 
<output message array identifier), 141 
<output message case expression), 143 
<output message case part), 143 
<output message number), 142 
<output message parameter), 143 
<output message parameter number), 143 
<output message parameter value), 143 
<output message part), 141 
<output message segment), 142 
<output option), 436 
<output procedure), 436 
Own 

arrays, 44 

pointers, 161 

simple variables, 123 



<pack, size). 437 

<page option), 633 

Paged (segmented) arrays, 44 

<parameter delimiter), 17 

<parameter element), 329 

Parameters 

array parameters, 171, 174 
array specification, 171 



889 
Index 



Parameters (cont.) 

call-by-name, 170 

call-by-reference, 171 

call-by-value, 170 

complex call-by-name parameters, 170 

event parameters, 179 

file parameters, 17 8 

format parameters, 179 

label parameters,, 179 

list parameters, 179 

parameters that can be call-by-value, 173 

passing parameters to CANDE-initiated procedures, 171 

passing parameters to procedures, 348 

passing parameters to WFL-initiated procedures, 171 

picture parameters, 179 

pointer parameters, 179 

procedure parameters, 175 

restrictions on call-by-name pointer parameters, 164 

simple variable parameters, 176 

string parameters, 178 

task, parameters, 179 
< parity error label :>, 362 
<partial word expression), 489 
<partial word part>, 489 
<patch number), 647 
<picture>, 147 
<picture character), 149 
<picture declaration), 147 
<picture identifier), 147 
<picture skip), 148 
<picture symbol), 147 
Pictures 

affects of hardware flip-flops on picture symbols, 150 

character fields affected by picture symbols, 151 

characters used by picture symbols, 151 

control characters, 153 

in REPLACE statement, 402 

introduction codes, 152 

picture characters, 154 

picture skip characters, 153 

single picture characters, 153 

string literals in pictures, 152 
<pointer assignment), 241 
<pointer attribute specification). 86 
<pointer case expression), 519 
<pointer declaration), 160 
<pointer expression), 519 
<pointer function), 565 
<pointer function designator >, 517 
Pointer handling. See Character string manipulation 
<pointer identifier), 160 
<pointer intrinsic name), 517 

alphabetical listing of, 531 



890 

ALGOL REFERENCE MANUAL 

<pointer part>, 494 
<pointer primary>, 519 
<pointer relation>, 494 
<pointer statement), 342 
<pointer table membership) , 495 
<pointer update assignment), 241 
<pointer variable), 241 
<pointer-valued attribute). 411 
Pointer-valued attributes 
assigning values 

FILE declaration, 85 

multiple attribute assignment statement, 332 
replace family-change statement, 409 
replace pointer-valued attribute statement, 411 
interrogating 

REPLACE statement source part <pointer-valued attribute), 380, 
407 
VALUE function, 585 
<pointer-valued file attribute), 411 
<pointer-valued file attribute name), 86 
<pointer-valued task, attribute), 411 
<pointer-valued task, attribute name), 412 
Pointers 

functions with pointer parameters 
DELTA function, 543 
DOUBLE function, 548 
INTEGER function, 558 
OFFSET function, 564 
READLOCK function, 570 
REAL function, 571 
REMAININGCHARS function, 571 
SIZE function, 577 
STRING function, 578 
initialized, 161 
internal structure, 827 

intrinsic functions returning values of type POINTER, 531 
lexical level restrictions, 161 
own ,161 

pointer assignment, 241 
POINTER declaration, 160 
pointer expression, 519 
pointer functions 

POINTER function, 565 
READLOCK function, 570 
pointer relation, 501 
string relation, 500 
up-level pointer assignment, 161 
<population item name), 697 
<pot function), 568 
POTC, 568 
POTH, 568 
POTL, 568 
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Precedence 

of arithmetic operators, 480 
of Boolean operators, 499 
Precision of arithmetic expressions, 481 
Primary coroutine, 259 
<procedure body>, 169 
<procedure declaration), 165 
<procedure heading>, 165 
^procedure identifier). 165 
<procedure invocation statement), 346 
Procedure parameters, 175 
<procedure specification), 167 
<procedure type), 165 
Procedures 

allowed parameters, 173 
array parameters, 171, 174 
as functions, 169 
by-calling, 172 
CALL statement. 259 
call-by-name parameters, 170 
call-by-reference parameters, 171 
call-by-value parameters, 170 
CONTINUE statement, 285 
external, 172 
file parameters, 178 
formal, 173 

formal parameters, 170 
forward procedure declaration, 121 
initiated through CANDE, 171 

initiated through Work Flow Language (WFL), 171 
library entry points, 172 
passing parameters to, 348 
PROCEDURE declaration, 165 
procedure invocation statement, 346 
procedure parameters, 175 
PROCESS statement, 350 
RUN statement. 425 
selection procedure, 172 
simple variable parameters, 17b 
string parameters, 178 
<process statement), 350 
<processid function), 568 
<processtime restriction), 791 
<procure statement), 353 
< program unit > , 9 
<programdump option), 355 
<programdump statement), 355 
<purge option), 634 
<put statement), 750 



<qualif ication) , 693 
<quaternary code), 32 
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<quaternary string), 32 

<quoted string>, 372 

Quoted strings in free-field data records, 374 



Railroad diagrams, explanation of, 837 
<random function), 569 
Range of numbers, 25 
<read statement), 359 
READ statement 

array row read, 370 
binary read, 369 
formatted read, 368 
free-field data format, 371 
free-field data record 

hexadecimal strings, 374 

numbers, 374 

quoted strings, 374 

unquoted strings, 373 
<readlock. function), 569 
Ready queue, 26b 
Real data type 

arithmetic assignment, 225 

arithmetic expression, 475 

arithmetic relation, 500 

direct real array declaration, 68 

functions for manipulating real expressions 

BOOLEAN function, 535 

DINTEGER function, 545 

DOUBLE function, 548 

ENTIER function, 552 

INTEGER function, 557 

INTEGERT function, 558 

NORMALIZE function, 564 

STRING function, 578 
intrinsic functions returning values of type REAL, 530 
real array declaration, 41 
real array reference declaration, 52 
REAL declaration, 182 
real functions 

ABS function, 532 

ARCCOS function, 532 

ARCSIN function, 532 

ARCTAN function, 533 

ARCTAN2 function, 533 

ATANH function, 534 

CABS function, 535 

CHECKSUM function, 537 

COMPILETIME function, 538 

COS function, 539 

COSH function, 539 

COTAN function, 539 

ERF function, 553 
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Real data type (cont.) 

ERFC function, 553 

EXP function, 553 

FIRST function, 554 

FIRSTWORD function, 554 

GAMMA function, 555 

IMAG function, 557 

LN function, 562 

LNGAMMA function, 562 

LOG function, 562 

MAX function, 563 

MIN function, 563 

NABS function, 564 

NORMALIZE function, 564 

RANDOM function, 569 

READLOCK function, 569 

REAL function, 570 

SCALERIGHTF function, 573 

SECONDWORD function, 574 

SIN function, 577 

SINGLE function, 577 

SINK function, 577 

SQRT function, 578 

TAN function, 582 

TANK function, 582 

TIME function, 582 
real operand internal structure, 820 
real procedure declaration, 165 
real value array declaration, 214 
width of real array elements, 45 
<real declaration> , 182 
<real function>, 570 
<real identifier), 182 
<real item>, 763 
<real item identifier), 704 
<real item name>, 697 
Real operand internal structure, 820 
<real variable), 447 
<record length), 43'? 
<record number), 433 

<record number or carriage control), 359 
< record type item name), 697 
<recreate statement), 752 
<relational operator), 493 
<remainingchars function), 571 
<remark.) , 27 
<remove statement), 754 
<removefile statement), 377 
<repeat function), 572 
< repeat part), 90 
<repeat part value), 149 
<replace family-change statement). 409 
<replace pointer-valued attribute statement), 411 



894 

ALGOL REFERENCE MANUAL 

<replace statement >, 379 
REPLACE statement 

short and long string literals, 387 

string literals interpreted as arithmetic expressions, 392 
<replace version>, 647 
<reserved word>, 799 
Reserved words, 800 

type 1, 803 

type 2, 803 

type 3, 805 
<reset statement>, 414 

Resettable standard Boolean options, 601 
<residual count >, 381 
<resize statement>, 415 
<restart data set>, 712 
<restart specif ications> , 437 
<result>, 360 
<result length>, 329 
<result pointer >, 329 
<rewind statement>, 423 
<row number>, 298 
<row selector>, 43 
< row/copy numbers >, 298 
<run statement>. 425 



<saveinput procedure identifier>, 744 
<saveoutput procedure identifier>, 726 
<scale factor>, 92 
<scaleleft function), 572 
<scaleright function), 573 
<scalerightf function), 573 
<scalerightt function), 574 
<scan part), 381 
<scan statement), 427 
Scope, 12 

global identifiers. 13 

local identifiers, 13 
Secondary coroutine, 259 
<secondword function;-, 574 
<seek. statement), 433 
<segdescabove option), 634 
<segs option), 635 
<selection expression), 703 
<selection procedure identifier), 169 
Separate compilation. See Sepcomp facility 
<separate procedure), 10 
Sepcomp facility 

MAKEHOST option, 625 

SEPCOMP option, 635 

sepcomping databases, 776 
< sepcomp option), 635 
<seq option) , 637 
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<seqerr option), 638 

<sequence base option>, 638 

<sequence increment option), 639 

< sequence number), 613 

<set>, 703 

<set name), 682 

<set part) , 681 

<set reference), 681 

<set selection expression), 703 

<set statement), 435 

<setactualname function), 575 

<sharing option), 639 

Short and long string literals, 387 

<sign) , 23 

<sign function), 576 

Signs of numeric fields, 819 

<simple arithmetic expression), 475 

<simple Boolean expression), 491 

<simple complex expression), 506 

<simple pointer expression), 519 

<simple source), 409 

<simple string literal), 30 

<simple variable), 225 

Simple variable parameters, 176 

<sin function) , 577 

<single function), 577 

<single option). 640 

<single picture character), 149 

<single space), 19 

<sinh function), 577 

<size function), 577 

<size specifications), 437 

<skip), 519 

<skip count) , 253 

<sort statement), 436 

<source) , 381 

< source characters), 202 

< source part), 380 

<source part list), 379 

< space), 19 

< space statem.ent). 445 

< special array resize parameters), 415 

<special destination character), 203 

< special new character), 148 

<specif ication) . 166 

<specified lower bound), 168 

<specifier). 167 

<sqrt function). 578 

<stack. option), 641 

<start specification), 615 

<starting index). 537 

<statement), 21<^ 

<statement list), 9 
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<statistics option>, 641 

<stop option) , 642 

<stop specif ication> , 615 

<store statement >, 761 

<string array declaration) , 187 

<string array designator), 187 

<string array identifier), 187 

<string assignment), 243 

<string character set), 556 

String code, 36 

String concatenation, 526 

<string concatenation operator), 523 

<string constant), 523 

String data type 

functions with string parameters 
DECIMAL function, 542 
DROP function, 549 
FIRST function. 554 . 
HEAD function, 556 
LENGTH function, 559 
REPEAT function, 572 
TAIL function, 580 
TAKE function, 581 
TRANSLATE function, 584 
intrinsic functions returning values of type STRING, 531 
STRING ARRAY declaration, 187 
string assignment, 243 
string concatenation, 526 
STRING declaration, 185 
string expression, 523 
string expression relation, 501 
string functions 

DROP function, 549 
HEAD function, 556 
REPEAT function, 572 
STRING function, 578 
STRING4 function, 578 
STRING7 function, 578 
STRING8 function, 578 
TAIL function, 580 
TAKE function, 581 
TRANSLATE function, 584 
string parameters in procedures, 178 
STRING PROCEDURE declaration, 165 
<string declaration), 185 
<string designator), 243 
<string expression), 523 
String expression 

in REPLACE statement, 408 
<strlng expression relation). 495 
<string function'-, 578 
<string function designator), 518 
<string identifier), 185 
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<string intrinsic name>, 518 

alphabetical listing of, 531 
<string library attribute specif lcation> , 129 
<strlng literal>, 30 
String literal 

as an arithmetic primary, 478 

ASCII string, 38 

BCL string, 37 

binary string, 31 

character size, 36 

default character type, 817 

dollar signs in strings, 38 

EBCDIC string, 35 

hexadecimal string, 33 

in editing specifications, 93, 94 

in pictures, 152 

in REPLACE statement source parts, 387 

interpreted as arithmetic expression in REPLACE statement, 392 

maximum length of, 37 

octal string, 32 

pool array, 37 

quaternary string, 32 

quotation marks in strings, 38 

string code, 3b 

string length, 387 
String manipulation. See Character string manipulation 
String parameters, 178 
<string primary), 523 
<string procedure identifier), 165 
<string relation), 494 
<string relational operator), 493 
<string type), 185 
<string variable), 525 
String-valued attributes 

assigning values 

LIBRARY declaration, 129 

string assignment target <string^valued library attribute), 243 

interrogating 

string primary xstring-valued library attribute), 523 
<string-valued database attribute), 689 
<string-valued library attribute), 525 
<string-valued library attribute name), 129 
STRING4, 578 
STRING7. 578 
STRINGS, 578 

<structurenumber function), 76.6 
<subarray selector), 44 
<subfile index), 280 
<subfile specification), 360 
<subscript). 43 

<subscripted BDMS identifier), 692 
<subscripted string variable), 525 
<subscripted variable), 225 
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< subset >, 704 
Subtraction, 478 
<swap statement). 447 
<switch file delaration>, 189 
<switch file identifier), 189 
<switch file list>, 189 
<switch format declaration), 192 
<switch format identifier), 192 
<switch format list), 192 
< switch format segment), 192 
<switch label declaration), 195 
<switch label identifier), 195 
<switch label list), 195 
<switch list declaration), 197 
<switch list identifier), 197 
< symbol construct), 15 



<TADS option) , 643 
<tail function), 580 
<take function), 581 
<tan function). 582 
<tanh function), 582 
TAPE file, 589 
<target option), 644 
<task. array declaration), 199 
<task array designator), 200 
<task array identifier), 199 
<task. assignment), 246 
<task declaration), 199 
<task designator), 200 
Task, handling. See Job and task control 
<task identifier), 199 

Task-valued attributes. See also Job and task control 
assigning values 

task assignment, 246 
interrogating 

<task designator), 200 
<task-valued task attribute name), 200 
<text>, 61 

THAW (Thaw Frozen Library) ODT command, 661 
<thru statement), 450 
Thunk, 171 
<time>. 452 
<time function), 582 
<time option), 645 
<time restrictions), 791 
TIMES, 478 
<title>, 611 

TITLE library attribute, 666 
Touched array, 50 
<tracedb option), 773 
<transaction record variable), 712 
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< transfer part>, 381 
<translate function), 584 
< translate part>, 382 
<translate table>, 382 
Translate table 

in REPLACE statement, 401 
<translate table declaration) , 202 
<translate table element), 202 
<translate table identifier), 202 
<translate-table attribute specification), 86 
Translate-table-valued attributes 

assigning values 

FILE declaration, 85 

multiple attribute assignment statement, 332 

VALUE function, 585 
<translate-table-valued file attribute name), 8b 
<translation specifier), 202 
<translator 's help text), 142 
< truth set declaration), 207 
<truth set identifier), 207 
<truth set table), 382 
Truth set table 

in Boolean expressions, 502 

in REPLACE statement, 404, 406 

in SCAN statement, 430, 431 
<type>, 41 

<type declaration), 212 
Type declarations 

BOOLEAN, 55 

COMPLEX, 58 

DOUBLE, 71 

INTEGER, 123 

POINTER, 160 

REAL, 182 

STRING, 185 
Type transfer functions 

BOOLEAN function, 535 

COMPLEX function, 538 

DECIMAL function, 542 

DINTEGER function, 545 

DOUBLE function. 548 

ENTIER function, 552 

FIRST function. 554 

FIRSTWORD function, 554 

IMAG function, 557 

INTEGER function, 557 

INTEGERT function, 558 

REAL function, 570 

SECONDWORD function, 574 

SINGLE function, 577 

STRING function, 578 
Types resulting from arithmetic operations, 482 
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Uninitialized pointer, 161 

<unit count>, 380 

<unlabeled statement >, 220 

Unpaged (long) arrays, 44 

<unquoted string>, 372 

Unquoted strings in free-field data records. 373 

Unsegmented arrays, See Unpaged (long) arrays 

<unsigned integer>, 23 

<unsigned nuinber>, 23 

<up or down> , 409 

Up-level event 

in ATTACH statement, 248 

in direct I/O, 317 
Up-level pointer assignment, 161 
<update pointer>, 379 
< update symbols >, 227 
<upper bound>, 42 
<upper limit >, 74 
<use option> , 64b 
<user option>, 646 



<value array declaration> , 214 
<value array identifier>, 214 
<value function>, 585 
<value list>, 300 
<value opt ion >, 598 
<value part> , 166 
<variable>, 225 
<version increment >, 647 
<version option>, 647 
<void option>, 648 
<voidt option>, 649 



<wait parameter list>, 452 
<wait statement>, 452 
<waitandreset statement >, 456 
<warnsupr opt ion >, 649 
<when statement>, 458 
<while statement>, 459 
Width of array elements, 45 
Word array, 45 
<word array identifier>, 42 
<write file part>, 461 

semantics, 463 
<write statement>. 461 
WRITE statement 

array row write. 467 

binary write, 466 

formatted write, 465 
<writeafter option>, 649 
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<xdecs opt ion >, 650 
<xref option>, 650 
XREFFILE file, 593 
<xref files option>, 652 
<xrefs option>, 653 



ZIP 

with array, 470 
with file, 471 

<zip statement >, 470 



<$ option>, 653 

** (exponentiation operator), 479 



I (OR), 496 

II (string concatenation operator), 526 



